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Laser  Chess™ 

A  fascinating,  futuristic  two-piayer  strategy  game — our 
best  ever.  For  the  '  Commodore  64,  Apple  II,  Amiga,  ^^^^ 

\  X     and  Atari  XL/XE.       ^^  /<^ 
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HowTo  End 
SingjngBx)! 

Seaiets  Of  Analog  And 
Other  InformationBeethoven 

WouldH^eMedFbr 


ou're  about  to  embark  on  a 
joiuTiey  through  the  most  com- 
plete music  software  catalog  ever 
created.  It's  called  the  Coda 
Catalog.  160  pages  of  intrigue, 
amusement,  and  information. 


On  over  600  products,  including 
virtually  every  piece  of  music  soft- 
ware that  exists  today  Coda  is 
detailed  with  whimsical  illustra- 
tions. And  written  with  a  simplic- 
ity you'll  appreciate.  Use  it  to 
order  software,  books,  videos, 
and  equipment.  All  at  the  guar- 
anteed lowest  price.  For  Apple, 
IBM,  Macintosh,  Amiga,  Atari, 
and  Commodore  computers. 

Quite  simply,  Coda  is  the 
best  source  of  music  soft- 
ware in  the  world.  Or  as  one 
critic  so  eloquently  put^ 
it,  "Beethoven  would^ 
have  killed  for  this 


information'.'  Only  $4.  Order  by  calling  toll  free  1-800-843-1337  Or 
collect  612-854-9554.  Oh,  by  the  way,  the  singing  frog  is  on  page  114.^ 

WengerOnimmtion,  Music  Learning  Divisim,  1401  East  79th  Street,  Minneapolis,  MN  55420-1590 


CU'87.W,'iip'rCnr|j, 


We'll  pciy  you  to  take 
the  most  exciting  classes  anywhere* 


You'll  learn  electronics,  avionics,  aircraft 
maintenance,  health  care  sciences,  man- 
agement or  logistics— the  Air  Force  will 
train  you  in  one  of  more  than  200  technical 
specialties  America  needs  today. 

You'll  get  hands-on  experience  with  the 
latest  equipment,  and  we'U  pay  75%  of  your 
tuition  for  off-duty  college  courses,  to  get 
you  even  further. 


Whatever  your  goals,  the  Air  Force  will 
equip  you  with  the  skills  to  get  where  you 
want  to  be. 

If  you're  looking  seriously  into  your 
future.  Aim  High  to  a  future  in  the  Air  Force. 
Visit  your  Air  Force  recruiter  today  or  caU 
toll-free  1-800-423-USAF 
(in  California 
1-800'232-USAF). 


Use  THE  Brains  YOUR 
Commodore  msNT  born  whe 


Right  at  Your  Fingertips 
in  CompuServe's 
Commodore*  Forums 

Our  Commodore  Forums  involve 
thousands  of  Commodore  users  world- 
wide. These  Forums  show  you  just  how 
easy  and  fun  it  is  to  get  the  most  from 
your  Commodore  Computer. 

The  Commodore  Communications 
Forum  provides  the  latest  news  on  com- 
munications software  and  advice  on 
how  to  effectively  use  your  machine  for 
online  computing. 

The  Commodore  Programming 
Forum  supports  programmers  and 
developers  of  Commodore  8-bit 
computers. 

The  Commodore  Arts  and  Games 
Forum  is  for  all  Commodore  8-bit 
computers.  Compose  or  play  music, 
create  or  retrieve  colorful  graphics,  and 
download  games  software. 

The  Commodore  Amiga*  Forum  is 
the  national  resource  for  all  business 


and  entertainment  applications  in  the 
Amiga  community 

Easy  access  to  free  software. 

•  Download  first-rate,  non<ommerdal  user- 
supported  software  and  utility  programs. 

•  Take  advantage  of  CompuServes  inexpen- 
sive weeknigfit  and  weefiend  rates  (when 
Forums  are  most  active,  and  standard  online 
charges  are  just  IOC  a  minute), 

•  Go  online  in  most  major  metropolitan  areas 
with  a  local  phone  call. 

•  Receive  a  $25M  Introductory  Usage 
Credit  when  yoa  purchase  your  CompuServe 
Subscription  Kit. 

Information  you  simply  can*t  find 
anywhere  else. 

Use  the  Forum  f^essage  Board  to 
exchange  mail  with  fellow  members. 
Join  ongoing,  real-time  discussions  in  a 
Forum  Conference — with  Commodore 
luminaries  like  Jim  Butterfield,  Jim 
Gracely,  Bob  L^ndwehr  and  Steve 
Punter  Scan  Forum  Data  Ubraries  for 
free  software,  documentation  and  con- 
tributions from  Commodore  enthusiasts. 


Enjoy  other  useful  services,  too.  Like 
electronic  editions  of  your  favorite  maga- 
zines, newsletters  and  articles,  including 
Family  Computing,  OMNI  Online  and 
the  Electronic  Gamer.'" 

All  you  need  is  your  Commodore 
computer  and  a  modem. ., or  almost 
any  other  personal  computer. 

To  buy  your  Subscription  Kit,  see  your 
nearest  computer  dealer.  Suggested  re- 
tail price  is  $39.95.  To  receive  our  free 
brochure,  or  to  order  direct,  call  800- 
848-8199  (in  Ohio,  call  614-457-0802), 
If  you're  already  a  CompuServe  sub- 
scriber, type  GO  CBMNET  (the  Com- 
modore Users  Network)  at  any  \  prompt 
to  see  whatyouVe  been  missing. 


CompuServe* 

Information  Services,  RO.  Box  20212 

5000  Arlington  Centre  Blvd.,  Columbus,  Ohio  43220 

800-848-8199 

In  Ohio,  call  614-457-0802 
An  H&R  eioc*(  Comparty 
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Editor's  Notes 


In  this  issue  we're  proud  to  present 
Laser  Chess'^^,  a  fascinating  strategy 
game.  Inspired  by — but  far  more  fu- 
turistic than — traditional  chess,  this 
captivating  game  can  be  played  only 
on  a  computer.  The  winning  entry  in 
our  $10,000  programming  contest  for 
COMPUTE'/s  Atari  ST  Disk  &  Magazine, 
it  has  now  been  translated  into 
Amiga,  Commodore  64,  Apple  II,  and 
Atari  XL/XE  versions. 

Elsewhere  you'll  find  a  variety  of 
useful  utilities  and  applications.  For 
Commodore  64  programmers,  "64 
RAMdisk"  is  highly  useful  in  pro- 
gram development,  and  "ML  Run- 
ner" turns  machine  language 
programs  into  files  that  load  and  run 
like  BASIC  files.  "Full-Screen  Editor 
for  Applesoft"  makes  it  far  easier  to 
program  Apple  BASIC.  "Atari  XL/XE 
Super  Editor"  significantly  improves 
the  screen  editor  in  these  machines, 
and  "Atari  NoDOS"  can  restore  pro- 
grams which  seemed  hopelessly  lost, 
"Fast  Fractal  Landscapes"  for  the 
IBM  PC  and  compatibles  offers  im- 
pressive graphics  detail  and  speed, 
and  "College  Planner"  and  "Car  Pay- 
ments" are  compact,  easy-to-use  pro- 
grams that  help  with  financial 
planning,  "GraphiDemo  for  Amiga" 
is  a  fast  and  colorful  program  which 
shows  off  the  tremendous  processing 
power  and  graphics  of  the  Amiga. 
And  "Amiga  Disk-Based  Fonts"  is  a 
helpful  utility  with  a  tutorial  on  how 
to  load  custom  text  fonts  from  disk 
and  install  them  from  BASIC. 

Readers  who  have  been  with  us 
for  some  time  are  likely  to  agree  that 
the  quality  of  the  articles  and  pro- 
grams in  this  issue  does  not  come  as  a 
surprise;  rather  it's  part  of  a  tradition 
established  by  Robert  Lock,  the 
founder  of  COMPUTE!  Publications. 

This  past  December  Robert  with- 
drew from  the  daily  management  of 
the  company  and  accepted  the  posi- 
tion of  Editorial  Consultant.  He  will 
continue  to  provide  the  company 
with  guidance  and  will  assist,  in  par- 
ticular, in  the  development  of  new 
products  and  services. 

This  change  in  editorial  manage- 


ment gives  us  our  first  opportunity  to 
publicly  acknowledge  his  contribu- 
tions to  the  growth  and  success  of  the 
company  he  founded  and  to  the  per- 
sonal computing  industry  as  a  whole. 

In  all  these  years  he  has  never 
given  an  interview  or  in  any  fashion 
moved  his  personality  into  public 
view.  While  some  other  industry 
leaders  appeared  more  concerned  at 
times  with  their  personal  image  than 
with  the  health  of  their  companies, 
Robert  has  always  worked  quietly  be- 
hind the  scenes.  We  can,  however, 
with  this  editorial,  recognize  his  con- 
tribution and  thank  him  in  a  small 
way  for  his  efforts. 

He  was  in  his  early  thirties  when 
he  had  the  idea  of  starting  a  magazine 
devoted  to  consumer  computing. 
And  in  the  past  seven  years,  COM- 
PUTE!— under  Robert's  guidance — 
has  grown  into  a  highly  successful 
publishing  group:  four  magazines, 
over  150  books  in  print,  and  over 
1,000,000  readers  a  month.  COM- 
PUTE! Publications  has  become  a 
major  contributor  to  the  ongoing  in- 
troduction  of  computing  into  the 
homes,  schools,  and  businesses  of 
America  and  elsewhere  in  the  world. 

He  saw  early  on  that  computers 
would  have  an  immense  impact. 
Starting  in  a  storefront  in  Greens- 
boro, with  a  handful  of  employees, 
he  began  working  on  the  early  issues 
of  COMPUTE!.  At  that  point,  he  was 
personally  involved  in  every  aspect 
of  his  young  magazine:  He  pasted  up 
galleys,  called  advertisers,  contacted 
authors,  and  edited  copy. 

As  the  years  went  by,  he  contin- 
ued to  directly  supervise  the  growing 
company  in  both  its  editorial  and 
business  activities.  He  has  an  intu- 
itive grasp  of  business  and  finance 
combined  with  strong  editing  and 
writing  skills.  This  combination  of 
talents  is  as  rare  as  it  is  powerful  And 
perhaps  even  more  rare:  He  is  an 
extremely  clear  thinker.  Those  of  us 
who  work  closely  with  Robert  have 
always  been  aware  that  he  is  remark- 
ably accurate  in  his  assessments  on  a 
wide  range  of  topics. 


We  at  COMPUTE!  were  not  con- 
cerned during  the  notorious  industry 
shakeout  of  1984-85.  We  knew  we 
would  be  among  the  survivors.  In 
fact,  COMPUTEl's  Gazette  was  intro- 
duced in  the  face  of  the  shakeout,  and 
became  one  of  the  strongest  startups 
in  magazine  publishing  history.  We 
have  gone  on  to  publish  a  number  of 
bestselling  books  and  continue  to  fea- 
ture some  of  the  best  programs,  col- 
umns, and  articles  available  on  the 
subject  of  home  and  recreational 
computing. 

It  all  began  with  a  single  idea, 
Robert's  vision  of  how  best  to  engage, 
entertain,  and  inform  the  reader 
about  a  powerful  emerging  technol- 
ogy that  he  saw  would  eventually 
affect  every  aspect  of  our  lives.  But  a 
single  idea,  however  accurate,  rarely 
leads  to  the  creation  of  a  major  pub- 
lishing house.  Thousands  of  others 
also  began  to  see  the  importance  of 
consumer  computing  by  the  end  of 
the  1970s,  and  hundreds  of  publica- 
tions were  introduced.  By  1983  there 
were  150  computer  magazines  com- 
peting for  the  attention  of  the  reading 
public.  Today  there  are  only  a  few. 
That  COMPUTE!  Publications  sur- 
vived and  flourished  was  largely  due 
to  Robert's  strong  leadership.  The 
staff  at  COMPUTE!,  and  the  readers 
who  enjoy  our  efforts,  are  fortunate 
that  he  will  continue  to  play  a  vital 
role,  contributing  to  the  direction  of 
our  publications  as  we  grow. 

In  the  coTTung  years  we  will,  with 
his  help,  preserve  the  traditions  and 
values  Robert  established  here.  And 
we  will  expand,  offering  more  com- 
prehensive coverage  as  well  as  main- 
taining the  quality  of  programs, 
tutorials,  and  features  youVe  come  to 
expect  from  COMPUTE!  Publications. 


/^1^^=..<JP /^c^^ 
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Richard  Mansfield 
Editorial  Director 
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New  books 
from  COMPUTE! 


COMPUTE!  Books  is  bringing  you  a  brand  new 
iine  up  of  books  for  your  Commodore  64  and 
128.  These  recent  releases  offer  you  everything 
from  programming  hints  to  exciting  games,  from 
educational  to  home  and  business  applications. 


Pascal  for  Beginners 

Si  4.95  0-87455^68-8 

Book/disk  combination  for  tlie  Commodore  64 
S29.95  ISBN  0-87455-069-6 

This  introductory  text  to  slondord  Pascal  on  any  computer  is 
on  ideal  tutorial  for  anyone  who  wants  to  learn  this  powerful 
computer  language.  It  includes  everything  you  need,  includ- 
ing an  introductory  Pascal  interpreter*  for  the  Commodore  64 
and  128  in  64  mode,  ready  to  type  in  and  use.  Written  in  plain 
English  and  offering  numerous  program  examples,  it  gently 
and  clearly  explains  standard  Pascal  and  structured  program- 
ming. Latter  sections  Include  discussions  of  advanced  topics 
such  as  files  and  dynamic  data  storage.  There  is  o/so  an  op- 
tional disk  avaiiabie  for  $12,95  for  the  Commodore  64  which 
includes  most  of  the  programs  in  the  book.  688BDSK. 

•The  Commodore  64  Pascal  interpreter  is  not  full-featured, 
but  still  0  powerful  implementation  of  Pascal  which  suits  the 
needs  of  most  beginners. 
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COMPUTEI's  Music  System 

for  the  Commodore  64  and  128 

Book/disk  combination  only 

$24.95  ISBN  0^8745&O74-2 

Sid  player,  the  feature-packed,  popular  music  player  and  edi- 
tor program,  is  now  more  versatile  and  more  impressive  than 
before.  Enhanced  Sidpiayer  for  the  Commodore  128  and  64 
includes  two  new  versions— one  for  the  Commodore  128  run- 
ning in  128  mode  and  another  for  the  Commodore  64.  Take 
advantage  of  every  feature  the  SID  chip  (the  sound  chip  in 
the  128  and  64)  has  to  offer.  Just  like  the  original  Enhanced 
Sidpiayer  is  easy  to  learn  and  use,  with  many  powerful  new 
features.  The  accompanying  disk  contains  the  editor,  player 
programs  (including  a  Singatong  program),  utilities,  and  sam- 
ple music  that  you  can  enjoy  immediately  or  change.  The 
new  Sidpiayer  ploys  any  songs  created  by  the  original 
Sidpiayer  for  the  Commodore  64. 


User's  Guide  to  GEOS:  geoPaint  and  geoWrlte 

$1 8.95  ISBN  0-87455-080-7 

Leom  the  ins  and  outs  of  GEOS.  the  new  icon-based  operat- 
ing system  for  the  new  Commodore  64C  and  the  64,  with  this 
step-by-step  guide.  Everything  from  creating  simple  letters 
with  geoWrite  and  pictures  with  geoPaint  to  merging  text  and 
graphics  and  using  desk  accessories  is  clearly  and  concisely 
explained. 

COMPUTEI'S  Second  Book  of  the  Commodore  128 

$16.95  ISBN  0*87455-077-7 

The  editors  at  COMPUTEl  Publications  have  collected  some  of 
the  best  games,  programs,  and  tutorials  for  the  Commodore 
128  (in  128  mode)  from  COMPUTEl  magazine  and  COMPUTEi's 
Gazette.  Like  COMPUTEi's  First  Book  of  the  Commodore  128. 
this  book  offers  a  variety  of  programs  and  articles  for  every 
1 28  user.  Each  program  has  been  fully  tested  and  is  ready  to 
type  in  and  use  on  the  Commodore  1 28  running  in  1 28  mode. 
There  is  also  a  disk  available  for  $12,95  which  includes  the  pro- 
grams in  the  book.  777BDSK. 

Mapping  the  Commodore  64,  Revised 

$16.95  ISBN  0-87455-082-3 

An  update  of  the  bestselilng  memory  map  and  programming 
guide.  It's  a  necessity  for  intermediate  and  advanced  pro- 
grammers. This  definitive  sourcebook  has  been  expanded  and 
now  covers  the  new  icon-based  GEOS  (Graphics  Environment 
Operating  System)  with  clear  descriptions  of  how  to  moke  It 
work  for  you.  For  BASIC  and  machine  language  programmers 
of  both  the  Commodore  64  and  64C. 


Look  for  COMPUTE!  Books  at  your  local  computer  or  book  store. 

Or,  to  order  directly  trom  COMPUTEl,  call  toll  free  1-800-346-6767  (In  NY  212-887-8525)  or 

write  COMPUTE!  Books,  RO,  Box  5038,  F.D.R.  Station,  New  York,  NY  10150. 

Please  include  shipping  and  handling:  $2.00  per  book  in  U.S.  and  surface  mail;  $5,00  airmail. 

NC  residents  odd  5  percent  sales  tax  and  NY  residents  add  8.26  percent  sales  tax. 

Please  allow  4-6  weeks  for  defivery. 
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COMPUTEI's  AmIgaDOS 
Reference  Guide 

ArJan  R.  Levltan  and  Sheldon  Leemon 
A  comprehensive  tutorial  and  reference  guide 
to  the  powerfu!  AmigaDOS — the  operating 
system  underlying  the  Wor]<bench  and 
Intuition— this  book  offers  information  usefut  to 
every  Amiga  owner,  it  defines  and  illustrates  all 
DOS  commands,  and  shows  you  how  to  create 
fiie  directories,  access  peripherals,  run  batch 
file  programs,  and  avoid  "disk  shuffle."  The 
screen-  and  line-ortented  text  editors  are 
explained  in  detail.  Numerous  examples  and 
techniques  explain  how  to  use  AmigaDOS  to 
make  operating  your  Amiga  both  convenient 
and  efficient. 
$  1 6.95    iSBN  0-87455-047-5 

Elementary  Amiga  BASIC 

C-  Regena 

Here's  your  introduction  to  the  new  and 
powerful  BASIC  on  the  Amiga  personal 
computer.  The  Amiga's  impressive  graphics, 
animation,  and  sound  can  be  unlocked  with  the 
right  commands,  and  BASiC  is  the  place  to 
start.  Complete  descriptions  of  Amiga  BASIC'S 
commands,  syntax,  and  organization  take  you 
from  the  beginner  level  to  a  full-fledged 
programmer.  Plus,  the  book  offers  you  ready-to- 
type-in  programs  and  subroutines  while 
showing  you  how  to  write  your  own  programs. 
There  is  a  disk  availabfe  which  includes  the 
programs  in  the  book,  5!  2.95.  This  title  is  also 
available  as  a  book/disk  combination  for  $29.95 
1057-2  >. 
$14.95     iSBN  0-67455-041-6 


COMPUTERS 


PROGRAMMER'S 
GUIDE 


COMPllTEI's  Amiga 
Programmer's  Cutde 
Edited 

Your  tutorial  and  reference  manual  to 
AmigaDOS,  BASIC,  Intuition,  and  other 
impKjrtant  software  tools  which  accompany  the 
new  Amiga,  COMPUTEI's  Amiga  Programmer's 
Guide  is  a  clear  and  thorough  guide  to  the 
inner  workings  of  this  fascinating  new- 
generation  computer.  The  great  speed  of  its 
6SOO0  microprocessor,  coupled  with  the 
versatility  of  the  Amiga-specific  graphics  and 
sound,  makes  the  Amiga  one  of  the  most 
powerful  computers  available  today. 
This  book  is  the  key  to  accessing  the  Amiga's 
speed  and  power. 
S I  7.95    ISBN  0-87455-028-9 

Advanced  Amiga  BASIC 

Tom  R,  Halfhill  and  Charles  Brannon 
This  guide  to  applications  programming  on 
Commodore's  new  Amiga  contains  everything 
an  intermediate  programmer  requires  to  begin 
creating  sophisticated  software  on  this  powerful 
machine,  including  several  ready-to-type-in 
programs,  Clear,  yet  comprehensive 
documentation  and  examples  cover  advanced 
BASIC  commands,  designing  graphic 
applications,  generating  sound  and  music,  using 
the  Amiga's  built-in  speech  synthesizer, 
creating  a  user  interface,  and  programming  the 
computer's  peripherals.  There  is  a  disk 
available  which  includes  the  programs  in  the 
book,  $15.95.  (June  releasei 
$17,95     ISBN  0-87455-045-9 


Look  for  these  books  at  your  local  book  or  computer  store. 

Or  order  directly  from  COMPUTE!. 

Call  toll-free  1-800^346-6767  (In  NY  212-887-8525). 
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COMPUTEI's  Beginners  Guide  to 
the  Amiga 

Dan  iV!cNeiH 

Written  in  a  lively  and  entertaining  style,  this 
book  teaches  you  everything  a  beginner  needs 
to  know  to  get  started  quickly  with  the  Amiga 
from  Commodore.  You  will  iearn  about  setting 
up  the  system,  all  the  most  popular  types  of 
software,  and  details  about  the  hardware- 
Si  6 .95     ISBN  0-874  55-025-4 

Inside  Amiga  Graphics 

Sheldon  Leemon 

The  Amiga,  Commodore's  powerful  new 
computer,  is  an  extraordinarily  impressive 
graphics  machine.  Easy  to  use.  the  Amiga  can 
produce  color  graphics  and  excellent  animation. 
You'll  find  thorough  descriptions  of  the 
computer's  abtfities  and  the  hardware  required 
to  create  a  complete  graphics  system.  Software, 
too,  is  central  to  the  Amiga's  power,  and 
complete  tutorials  show  you  how  to  get  the 
most  from  the  machine.  Ijune  release* 
$17,95     ISBN  0'87455-040-S 


COfWPUTErs  Kids  and  the  Amiga 

Edward  H.  Carlson 

The  latest  in  this  bestseding  series  written  by 
Edward  Carlson,  COMPUTEVs  Kids  and  the 
Amiga,  will  acquaint  you  with  BASIC,  Over  30 
sections — all  with  instructor  notes,  lessons, 
assignments,  and  lively  illustrations— entertain 
and  amuse  you  as  you  learn  to  program  your 
new  computer.  Clear  writing  and  concise 
examples  make  it  easy  for  anyone— children 
and  adults  aiike— to  painlessly  learn  BASIC, 
IMay  releasel 
$14.95     ISBN  0-87455-048-3 

Please  allow  4-6  weeks  for  delivery 
after  your  order  Is  received. 
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A  Beginner's  Guide  To 

Programming  ^ 
Languages    " 


Tom  R.  HolfhilL  Staff  Editor 


How  hard  is  programming — really?  And  which 

language  is  best?  Here  are  some  straight  answers  to 

some  of  the  most  commonly  asked  questions  about 

programming  on  personal  computers. 


Recently  a  teacher  whose  school  was  being 
equipped  with  personal  computers  for  the  first 
time  related  how  the  faculty  was  introduced  to 
the  idea: 

"The  computer  expert  for  the  school  dis- 
trict came  down  and  grouped  us  all  together  in 
a  room.  None  of  the  teachers  but  me  had  ever 
worked  with  a  computer  before.  The  expert 
proceeded  to  give  us  a  crash  course  in  comput- 
ers^— but  started  off  by  trying  to  teach  us 
BASIC  programming.  Pretty  soon  he  was  talk- 
ing about  numeric  variables,  string  arrays,  and 
subroutines,  and  got  everybody  lost.  When  the 
session  ended  and  we  left  the  room,  I  heard 
one  teacher  mutter,  'That's  the  last  time  I'm 
ever  going  near  one  of  those  things!'" 

These  teachers  weren't  the  first  people  to 
be  discouraged  by  the  complexities  of  pro- 
gramming. Over  the  past  several  years,  thou- 
sands of  students,  too,  have  been  exposed  to 
the  same  approach  to  computer  literacy. 
Thankfully,  most  school  systems  have  now 
recognized  the  difference  between  computer 
users  and  computer  programmers  and  have  re- 
structured their  computer-literacy  courses 
accordingly. 

There  was  a  time  when  a  person  had  to 
become  a  mechanic  to  drive  an  automobile, 
become  a  pilot  to  fly,  and  set  up  a  darkroom  to 
take  pictures.  But  as  cars,  airplanes,  and  cam- 
eras advanced  beyond  the  primitive  stage  to 
become  mature  machines,  it  became  less  neces- 
sary to  wresde  with  their  inner  workings.  Like- 
wise, you  don't  have  to  be  a  programmer  to 
operate  a  computer  intelligently  and  usefully. 

Ten  years  ago,  programming  was  almost 
unavoidable  if  you  wanted  to  use  a  microcom- 
puter. Commercial  software  was  practically 
nonexistent,  and  the  handful  of  public  domain 
programs  available  were  usually  considered 
starting  points  for  your  own  modifications.  But 


now  the  personal  computer  is  a  mature 
enough  machine  so  that  the  average  person 
shouldn't  have  to  struggle  with  string  arrays, 
subroutines,  and  recursive  procedures.  You 
can  probably  buy  the  software  you  need  right 
off  the  shelf,  type  it  in  from  a  magazine  or 
book,  download  it  from  a  bulletin  board  sys- 
tem or  information  service,  or  obtain  it  from  a 
user  group  library. 

Still,  there  comes  a  time  when  nearly 
every  computer  user  considers  the  question: 
Should  I  learn  to  program?  Maybe  now,  as  a 
knowledgeable  user,  you've  realized  that  com- 
puters really  aren't  as  mysterious  as  they  first 
seemed,  so  you're  wondering  if  programming 
might  be  within  your  grasp,  too.  Or  maybe 
you're  the  type  who  likes  to  tinker  with  inner 
workings — you  won't  be  satisfied  until  you 
have  total  control  over  the  machine.  Or  maybe 
you  have  an  unusual  application  in  mind  and 
just  can't  find  the  right  software  to  do  the  job. 

If  you  fit  any  of  these  descriptions — or  if 
you're  merely  curious — you  may  want  to  take 
the  plunge  into  programming. 

Primitive  Languoges 

First,  a  definition:  A  program  is  simply  a  list  of 
instructions  for  the  computer  to  carry  out.  Some 
instructions  may  tell  the  computer  to  load  a  file 
from  disk;  others  may  tell  the  computer  to 
display  something  on  the  screen.  It's  your  job, 
as  a  programmer,  to  write  these  instructions  in 
the  proper  sequence.  The  "proper  sequence," 
of  course,  depends  on  what  you  want  the 
program  to  do. 

So  far  so  good.  Now  all  you  have  to  do  is 
learn  what  the  instructions  are  and  how  to  fit 
them  together.  And  this  is  where  things  start  to 
get  sticky. 

Beginning  programmers  are  sometimes 
dismayed  when  they  discover  that  the  instruc- 
tions recognized  by  computers  are  much  more 
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primitive  than  they  anticipated. 
COMPUTE!  has  received  letters  that 
read  something  like  this:  "Can  you 
tell  me  which  command  lets  you 
move  a  sprite  around  the  screen 
with  a  joystick  and  lets  it  fire 
shots?"  Or,  "Which  command 
sorts  a  list  of  names  in  alphabetic 
order?" 

There  are  answers  to  these 
questions,  but  they  fill  enough 
books  to  support  a  large  part  of  the 
computer  publishing  industry. 

The  problem  is  that  individual 
programming  instructions  do  rela- 
tively little.  It  takes  a  fair  number  of 
them  strung  together  to  make  the 
computer  do  something  minimally 
useful  or  even  recognizable.  Imag- 
ine, for  instance,  sending  someone 
to  the  store  for  a  loaf  of  bread. 
Instead  of  simply  saying,  "Please 
go  to  the  store  and  get  a  loaf  of 
bread,"  you  have  to  tell  the  person, 
"Walk  one  block  to  the  comer  and 
turn  left.  Then  walk  one  more  block 
and  enter  Joe's  Market  on  the  right. 
Pick  up  a  loaf  of  bread  and  pay  for  it 
at  the  counter.  Then  walk  one  block 
back  to  the  comer,  turn  right,  and 
walk  another  block  home  again." 

This  kind  of  detail  is  necessary 
even  when  programming  in  a  so- 
called  high-level  language,  like 
BASIC,  Pascal,  Modula-2,  or  Logo. 
Programming  in  a  lower-level  lan- 
guage like  C,  Forth,  or,  ultimately, 
machine  language,  would  be  like 
telling  the  person  how  to  walk  by 
putting  one  foot  in  front  of  the  oth- 
er, how  to  open  and  close  a  door, 
how  to  turn,  how  to  recognize  a  loaf 
of  bread  and  pick  it  up,  and  how  to 
pay  for  it. 

Computer  languages  are  a  little 
more  advanced  than  the  grunts  of 
primitive  cavemen — but  not  much. 

Don't  let  this  discourage  you, 
though.  The  relative  simplicity  of  a 
computer  language  makes  it  much 
easier  to  learn  than  a  modern  hu- 
man language.  English,  French,  and 
German  consist  of  many  thousands 
of  words  and  many  dozens  of 
grammatical  rules.  BASIC,  Pascal, 
and  Forth — even  the  most  power- 
ful versions — rarely  have  more 
than  100-200  words  and  a  few  doz- 
en rules.  And,  just  as  your  working 
vocabulary  in  English  is  only  a  frac- 
tion of  the  total  language,  your 
working  vocabulary  in  BASIC  or 
Pascal  may  amount  to  fewer  than 
30  commands  about  90  percent  of 
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the  time. 

Someday  it  may  be  possible  to 

program  a  computer  in  English, 
French,  or  German.  Reseachers  at 
this  very  moment  are  working  on  a 
natural  language  interface.  But  until 
computers  get  a  lot  smarter,  it's  go- 
ing to  be  easier  for  us  to  leam  their 
languages  than  for  computers  to 
leam  ours. 

Sorry,  No  Esperanto 

Your  first  step,  then,  is  to  decide 
which  computer  language  you 
want  to  leam.  You  might  be  sur- 
prised to  discover  that  there  are 
about  as  many  computer  languages 
as  there  are  human  languages.  If 
you  were  born  and  raised  in  an 
English-speaking  country,  you 
probably  grew  up  speaking  Eng- 
lish. However,  that  same  kind  of 
choice  isn't  made  for  you  when  you 
buy  a  computer,  even  if  BASIC  is 
built  in.  Your  computer  can  mn 
several  different  languages. 

Why  are  there  so  many  com- 
puter languages  to  choose  from? 
After  all,  it's  perfectly  logical  that 
hundreds  of  different  human  lan- 
guages developed.  There  was  no 
communication  between  different 
peoples  for  centuries,  and  by  the 
time  someone  came  up  with  the 
idea  of  inventing  a  standard  lan- 
guage like  Esperanto,  it  was  far  too 
late  to  get  everyone  to  agree.  But 
computers  are  a  recent  invention, 
so  it  seems  like  somebody  could 
have  set  the  standard  at  the  begin- 
ning and  saved  us  a  lot  of  trouble. 

It's  not  that  simple,  though. 
The  reason  why  there  are  scores  of 
computer  languages  is  that  each 
one  was  conceived  to  solve  certain 
kinds  of  problems,  to  run  on  certain 
kinds  of  computers,  or  to  reflect 
certain  programming  philosophies. 
For  instance,  BASIC — which  stands 
for  Beginner's  All-purpose  Sym- 
bolic Instruction  Code — was  in- 
vented by  a  pair  of  university 
professors  in  the  mid-1960s  who 
wanted  a  language  easy  enough  for 
neophytes  to  learn  in  a  few  hours. 
Likewise,  Pascal  was  invented  by  a 
Swiss  professor  who  sought  a  lan- 
guage that  was  ideal  for  students. 
FORTRAN  (FORmuIa  TRANslator), 
one  of  the  oldest  languages,  was 
invented  for  scientists  and  engi- 
neers. COBOL  (COmmon  Business- 
Oriented  Language),  another  an- 
cient computer  tongue,  was  invent- 


ed for  writing  business  programs. 
The  U.S.  Department  of  Defense 
even  has  its  own  computer  lan- 
guage, Ada. 

Most  languages  have  also 
sprouted  several  dialects.  There  are 
dozens  of  versions  of  BASIC,  for 
example.  Although  these  dialects 
are  largely  similar,  there  are  still  too 
many  dissimilarities  to  allow  all  but 
the  simplest  programs  written  in 
one  dialect  to  run  under  another. 
Sometimes  an  extensive  rewrite  is 
necessary. 

Like  choosing  a  computer, 
choosing  a  language  is  an  emotion- 
al issue  for  some  people.  If  you  start 
asking  around  for  advice,  expect  to 
hear  conflicting  arguments  about 
which  language  is  best,  and  why. 

Bock  To  BASICS 

Allin  all,  a  good  starting  point  for 
the  beginning  programmer  is 
BASIC — if  only  because  it's  the  lan- 
guage you  probably  already  own. 
Most  personal  computers  come  v^th 
BASIC  on  a  system  disk  or  built  into 
read  only  memory  (ROM).  A 
BASIC  programming  manual  was 
probably  included  in  the  package, 
too.  If  not,  a  trip  to  a  bookstore  or 
library  will  tum  up  dozens  of  vol- 
umes of  BASIC  manuals. 

Besides  the  fact  that  it's  free, 
BASIC  is  a  very  flexible  language 
that's  ideal  for  experimenting  and 
writing  short  programs.  If  you  play 
around  with  BASIC  for  a  few  weeks 
and  decide  that  programming  isn't 
much  fun,  at  least  you  haven't 
spent  the  $50  to  $500  that  another 
language  may  cost. 

As  an  alternative,  some  lan- 
guages are  available  in  public  do- 
main versions  for  the  nominal  cost 
of  a  user  group  library  disk  or 
download  charges  from  a  bulletin 
board  system  or  information  ser- 
vice. Forth  and  COMAL  are  prime 
examples. 

To  help  you  get  started,  the 
following  pages  cover  the  features 
of  some  of  the  most  popular  lan- 
guages available  on  today's  person- 
al computers.  This  isn't  intended  to 
be  a  complete  list,  of  course,  but  it 
will  introduce  you  to  some  of  the 
pros  and  cons  of  several  of  the  most 
widely-used  languages.  If  you  con- 
sider the  options  carefully  before 
making  your  choice,  odds  are  you 
won't  be  disappointed. 


Todd  Heimorck 
Assistant  Editor 


No   matter   which   computer  you 

buy,  you'll  almost  certainly  be  giv- 
en a  version  of  the  BASIC  language 
with  your  system.  It  might  be  in 
Read  Only  Memory  (ROM),  on  a 
plug-in  cartridge,  or  in  a  program 
on  the  system  disk,  but  whatever 
form  it  takes,  it's  there.  BASIC  is  the 
lingua  franca,  the  universal  lan- 
guage, for  microcomputers. 

Everybody  has  BASIC.  You 
can  write  a  program,  save  it  to  disk, 
and  give  a  copy  to  a  friend  or  put  it 
up  on  a  local  bulletin  board  system. 
Magazines  and  books  publish 
BASIC  program  listings  which  you 
can  study  to  learn  new  techniques. 
Many  user  groups,  schools,  and 
other  organizations  offer  classes  in 
BASIC  programming. 

If  you  decide  at  some  point  in 
the  future  to  buy  a  new  computer 
with  more  memory  or  a  faster  pro- 
cessor, you'll  have  a  head  start  on 
programming  it  if  you  know 
BASIC.  There  are  some  differences 
between  the  manifold  dialects  of 
BASIC,  but  there's  a  core  of  com- 
mands that  are  the  same  on  all  com- 
puters PRINT,  FOR-NEXT,  IF- 
THEN,  and  many  other  keywords 
function  virtually  identically  in  all 
versions  of  BASIC. 

There  are  other  languages 
available,  and  they  have  their  good 
points.  BASIC  isn't  perfect  and 
you'll  hear  proponents  of  other  lan- 
guages making  comparisons  be- 
tween their  favorite  language  and 
BASIC.  You  don't  often  hear  some- 
one say,  "C  is  a  good  language 
because  it  has  many  features  that 
Forth  lacks."  That's  because  BASIC 
is  the  standard  against  which  others 
are  judged.  The  most  popular  lan- 
guage, it  has  survived  for  25  years 
and  probably  will  still  be  in  use  25 
years  from  now. 


Interactive  And  Flexible 

One  of  BASIC'S  most  attractive  fea- 
tures is  that  it's  interactive.  You  can 
sit  down  at  a  keyboard,  type  in  a 
few  lines,  and  then  type  RUN. 
There's  no  need  to  wait  while  you 
save  the  source  code,  compile  and 
link  it,  and  hope  that  it  works.  You 
just  type  RUN.  The  program  will 
either  run  or  it  will  stop  with  an 
error  message.  BASIC  is  generally 
good  about  pointing  out  mistakes 
and  telling  you  which  line  isn't 
working.  If  there's  an  error,  you  can 
list  the  line  and  figure  out  what's 
wrong. 

BASIC  encourages  experi- 
ments. You  can  stop  the  program, 
change  part  of  it,  and  see  the  results 
immediately.  A  weekend  program- 
mer can  be  creative — adding  a  line 
here,  changing  a  variable  there — 
much  like  a  sculptor  molding  a 
lump  of  clay.  When  you're  creating 
a  graphics  screen  or  playing  with 
sound  effects,  BASIC'S  flexibility 
makes  it  easy  for  you  to  test  new 
ideas. 

Since  BASIC  is  a  high-level 
language  with  English  keywords, 
program  listings  are  understand- 
able. You  can  usually  read  through 
a  subroutine  and  follow  its  logic. 

Spaghetti  And  Celerity 

People  who  dislike  BASIC  general- 
ly offer  one  of  two  arguments 
against  it.  First,  BASIC  is  an  un- 
structured language  (imposes  few 
rules  on  the  programmer),  and  pro- 
grams often  have  so  many  COTOs 
that  reading  the  listing  is  like  un- 
tangling spaghetti.  Second,  com- 
pared to  those  written  in  other 
languages,  BASIC  programs  can 
run  slowly. 

Advocates  of  structured  pro- 
gramming suggest  that  programs 
should  be  broken  into  modules  of 
less  than  one  page  each.  Variables 
should  be  declared  at  the  beginning 
of  each  module.  Loops  should  be 
indented.  You  should  include  many 
comments  that  explain  what's  go- 
ing on.  And  you  should  never  use 
an  unconditional  GOTO. 

If  you  agree  that  there  are  ad- 
vantages to  structured  program- 
ming, you  can  easily  follow  all  of 
those  rules  in  BASIC.  The  modules 
are  subroutines.  Variables  can  be 
defined  at  the  start  of  a  program. 


FOR-NEXT  loops  can  be  indented. 
You  can  include  REMs  and  avoid 
the  GOTO  command.  You  can 
write  highly  structured  programs,  if 
that's  what  you  want. 

In  other  words,  BASIC  doesn't 
force  you  to  write  spaghetti  code. 
It's  possible  to  create  a  program 
that  looks  nice  when  it's  listed.  If 
you  see  a  program  that  looks 
messy,  blame  the  author — not  the 
language. 

On  the  other  hand,  you  could 
ignore  the  whole  idea  of  structure. 
If  a  program  works,  it  works.  Some 
very  good  programs  don't  look 
clean  and  structured  on  the  inside, 
but  they  get  the  job  done. 

What  about  the  speed  of 
BASIC?  If  flat-out  speed  is  what 
you  want,  then  machine  language 
(ML)  is  the  only  choice.  All  lan- 
guages are  slower  than  ML. 

It's  true  that  some  languages 
are  faster  than  BASIC.  But  that 
doesn't  matter  in  some  situations.  If 
you're  calculating  a  mortgage  pay- 
ment, for  example,  BASIC  might 
take  three  seconds,  versus  one- 
third  second  in  a  faster  language.  If 
you  had  those  extra  seconds,  what 
would  you  do  with  them? 

In  other  cases,  the  problem 
isn't  BASIC,  but  the  algorithm 
used.  For  example,  a  bubble  sort 
that  alphabetizes  a  list  of  500 
names  might  run  very  slowly.  You 
could  rewrite  the  program  in  anoth- 
er language  and  it  would  run  the 
bubble  sort  faster.  But  if  you 
changed  to  a  Shell  sort  or  a  quick 
sort,  you'd  notice  a  definite  im- 
provement in  speed,  even  in 
BASIC.  There  are  many  techniques 
for  speeding  up  BASIC  programs. 
To  make  comparisons  fair, 
BASIC  programs  should  be  com- 
piled (run  through  a  special  process 
which  translates  them  into  some- 
thing resembling  machine  lan- 
guage). A  compiled  BASIC  program 
often  runs  at  the  same  speed  as  a 
similar  program  in  another  lan- 
guage. With  a  compiler,  you  can 
have  the  best  of  both  worlds. 
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En  oino  aletheia,  if  you  don't  know 
Greek,  is,  as  they  sav,  Greek  to  you. 
Likewise,  CMP  #$FD:RT5  looks 
pretty  strange  if  you  don't  know 
machine  language.  But  there's 
nothing  inherently  complicated 
about  either  language — once  you 
know  the  vocabulary  and  the  rules. 

Too  many  BASIC  program- 
mers stay  away  from  machine  lan- 
guage (ML — sometimes  also  called 
assembly  language)  because  they 
take  one  look  at  it  and  it  appears 
impossibly  alien.  In  fact,  it  is  simply 
another  language  with  about  50 
words  to  learn  and  some  new  tech- 
niques. The  fundamentals  of  pro- 
gramming in  any  language  remain 
the  same:  data  lists,  loops,  branch- 
ing, subroutines.  So,  once  you've 
learned  to  communicate  with  your 
computer  in  one  language,  you've 
got  a  considerable  head  start  when 
learning  a  second  language. 

Machine  language  does  require 
somewhat  more  exacting  program- 
ming (in  the  sense  that  cooking  din- 
ner from  scratch  is  more  exacting 
than  opening  cans).  But  there  are 
many  tools  now  available  to  the  ML 
programmer:  single  steppers,  error- 
detecting  assemblers,  and  a  wealth 
of  books  which  help  the  novice 
move  quickly  through  a  bafflement 
phase  toward  eventual  mastery. 

Talking  Directly  To 
The  Machine 

But  why,  if  you  already  know  an- 
other language,  would  you  want  to 
learn  ML?  One  clue  is  that  most 
commercial  or  professional  pro- 
gramming (especially  on  computers 
such  as  the  Commodore  64)  is  ML. 
This  is  because  ML  is  the  machine's 
language.  Any  other  language  re- 
quires translation  before  the  com- 
puter can  understand  what  to  do. 
For  example,  when  you  use  the 
BASIC  command  PRINT,  the  com- 
puter looks  up  the  print  subroutine. 


(This  subroutine  is,  like  the  subrou- 
tines in  virtually  any  computer  lan- 
guage, written  in  ML.)  The  lookup 
is  one  level  of  indirection,  but 
there's  also  the  problem  that  the 
PRINT  statement  can  have  so  many 
different  forms  (are  we  printing  to 
screen?  is  there  a  TAB?  and  so  on). 
All  this  translating  takes  time  and, 
with  interpreted  languages  like 
BASIC,  this  time  is  spent  while  the 
program  is  running. 

The  primary  benefit  of  ML  is 
that  there  is  no  lag  time  between 
the  computer's  reading  the  instruc- 
tion and  its  ability  to  act  upon  the 
instruction.  ML,  the  computer's 
own  language,  speaks  directly  to 
the  microprocessor  chip.  So-called 
higher-level  languages  all  require,  to 
one  degree  or  another,  compromises 
and  indirect,  time-consuming,  su- 
perfluous tasks.  The  reason  for  this 
is  obvious:  The  computer  can  speak 
only  one  language — ML.  Anything 
else  you  offer  it  will  have  to  be 
reduced  to  ML  before  the  computer 
can  respond. 

Two  higher-level  languages  re- 
nowned for  speed  and  power — C 
and  Forth — illustrate  this  point. 
Both  languages  are  interesting,  en- 
joyable to  program,  and  a  signifi- 
cant improvement  in  efficiency 
over  BASIC.  However,  after  pro- 
grams are  written  in  C  or  Forth, 
they  are  often  further  modified  by 
replacing  key  sections  with  pure 
ML.  There  are  even  utilities  which 
watch  an  executing  C  program  and 
then  report  where  the  computer  is 
spending  most  of  its  time — where 
in  the  program  are  the  most  delays. 
If  the  report  reveals  that  the  com- 
puter is  spending  40  percent  of  its 
time  in  lines  256-288,  you  rewrite 
that  segment,  replacing  C  with  ML. 

A  Subtle  intimacy 

The  most  important  issue,  then,  is 
speed,  and  nothing  can  work  faster 
than  ML,  For  years  BASIC  pro- 
grammers, too,  have  included  ML 
sections  within  the  BASIC  program 
to  make  game  animation  smoother, 
spreadsheets  calculate  faster,  or 
word  processors  able  to  keep  up 
with  quick  typists.  We  can  see  this 
endless  quest  for  additional  speed 
in  hardware  as  well:  clock  speeds 
have  gone  from  1  MHz  to  16  MHz. 
In  the  world  of  computers,  there's 


no  such  thing  as  having  too  much 
memory  or  being  too  quick. 

There's  an  additional  advan- 
tage to  ML  which  is  significant,  but 
somewhat  subtle:  intimacy.  With 
ML  you  are  working  with  a  loiv- 
level  language  (the  only  low-level 
language),  and  that  means  you're 
right  down  in  the  engine  room  and 
you've  got  all  the  tools  you  need  to 
do  anything  you  want.  In  other 
words,  you're  down  on  the  comput- 
er's level,  and  you  can  see  and  ac- 
cess all  its  features.  For  example,  it's 
often  not  possible  from  higher-level 
languages  to  test  whether  the 
BREAK  or  CONTROL  keys  are  be- 
ing pressed  on  the  keyboard;  to  de- 
sign disk  directory  lists  which  suit 
your  needs;  to  redefine  keys;  to 
speed  up  input;  or  to  quickly  switch 
entire  screens  of  information.  Most 
of  these  tasks  are  easy  to  accom- 
plish via  ML;  all  are  possible. 

A  machine  language  program- 
mer works  with  instructions  which, 
by  themselves,  accomplish  less 
than  many  of  the  instructions  of 
higher-level  languages  (PRINT  is 
made  up  of  hundreds  of  ML  in- 
structions). This  has  two  primary 
consequences:  You  use  more  in- 
structions per  ML  program,  and, 
therefore,  have  more  bugs  to  fix.  It 
takes  somewhat  more  time  to  pro- 
gram ML.  (Your  reward  is  that  your 
finished  program  will  run  perhaps 
100  times  faster  than  its  high-level- 
language  equivalent.)  A  second 
consequence  is  that  ML  is  freer  than 
other  languages,  more  uniquely  the 
work  of  one  individual.  For  this 
reason,  higher-level  languages  are 
often  chosen  for  team  program- 
ming— the  separately  programmed 
parts  are  more  likely  to  combine 
harmoniously  into  a  finished  prod- 
uct when  a  more  rule-oriented,  less 
individualistic  language  is  used. 

But,  if  you  work  alone,  enjoy  a 
challenge,  and  want  to  write  the 
very  best  programs  your  computer 
can  run,  you  might  want  to  give  ML 
a  try.  It's  not  really  more  difficult 
than  other  languages — just 
different. 
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You  might  call  C  a  "middle-level" 
language,  since  it  is  easier  to  write 
and  understand  than  machine  lan- 
guage, but  it  lacks  some  conven- 
ience features  found  in  high-level 
languages.  C  originated  in  the  early 
1970s  at  Bell  Labs,  where  it  was 
first  used  to  transport  the  UNIX 
operating  system  from  a  DEC  mini- 
computer to  other  computers. 

Today,  C  is  used  to  write  ev- 
erything from  arcade  games  to  op- 
erating systems  for  new  computers. 
C  is  a  favorite  of  commercial  soft- 
ware houses  for  two  main  reasons: 
C  programs  compare  favorably 
with  machine  language  programs 
in  performance,  and  C  is  not  tied  to 
any  particular  operating  system, 
making  it  suitable  for  programs  that 
must  be  translated  for  several  dif- 
ferent computers.  And  as  reason- 
ably priced  C  compilers  have  made 
their  way  into  the  home  computer 
market,  C  has  become  popular  with 
hobbyist  programmers,  too. 

Keyword  Economy 

C  has  fewer  than  30  keywords  in 
all,  and  about  half  of  those  are  used 
to  declare  variables  and  other  data 
objects.  The  most  important  re- 
maining keywords  are 

if,  else,  case,  switch,  default,  for,  do, 
while,  break,  continue,  return,  goto 

If  you're  used  to  BASIC — with 
versions  having  anywhere  from  50 
to  200  keywords — you  might  won- 
der how  any  useful  language  can 
get  by  with  so  few  words.  Part  of 
the  answer  lies  in  the  fact  that  C 
never  uses  two  words  where  one 
will  do.  For  example,  where  BASIC 
uses  FOR  and  NEXT  to  create  a 
FOR  loop,  or  WHILE  and  WEND  to 
create  a  WHILE  loop,  C  dispenses 
with  NEXT  in  the  first  case  and 


WEND  in  the  second.  The  occur- 
rence of /or,  while,  or  do  is  sufficient 
to  identify  a  loop  in  C,  and  this 
economy  of  expression  typifies  the 
language  in  general. 

Another  reason  why  C  re- 
quires few  keywords  is  that  it  relies 
heavily  on  context  and  uses  many 
words  and  operators  for  more  than 
one  purpose.  For  instance,  the  type 
identifier  int  can  have  quite  differ- 
ent meanings  depending  on  where 
it  occurs  in  a  program.  In  a  variable 
declaration,  int  means  /  plan  to  use 
an  integer  variable  with  the  following 
name.  When  it  occurs  before  a  func- 
tion, int  means  The  following  func- 
tion returns  an  integer  value.  And 
when  it  appears  in  a  cast,  int  means 
Convert  the  following  noninteger  val- 
ue into  an  integer, 

C  has  a  luxurious  supply  of 
operators.  In  a  simple  example, 
BASIC  uses  the  statement  a  =  a  +  1 
to  add  1  to  the  value  of  the  variable 
a.  C  permits  the  same  syntax,  but  it 
can  do  the  job  more  economically, 
in  two  different  ways: 

a+-h; 
a-h=l; 

Several  variable  types  are 
available  in  C.  You  must  declare 
every  C  variable — state  its  name 
and  its  type — before  using  it;  this 
requirement,  among  other  things, 
makes  C  programs  easy  to  read, 
since  variable  declarations  can  oc- 
cur in  only  a  few  places.  The  pre- 
ferred style  is  to  use  external 
variables — those  known  to  every 
function  in  the  program — only 
where  necessary,  thus  minimizing 
the  risk  that  a  secondary  function 
will  inadvertently  garble  a  variable 
used  elsewhere  in  the  program. 
Most  C  variables  are  local  to  one 
degree  or  another,  meaning  that 
they  are  known  only  to  a  single 
function  or  related  functions. 

Another  powerful  data  object 
is  the  pointer— a.  variable  that 
points  to  some  other  object.  A  com- 
mon use  of  pointers  is  to  access 
individual  elements  of  an  array. 
However,  pointers  have  many  oth- 
er uses,  including  direct  manipula- 
tion of  the  computer's  memory. 

An  array  in  C  is  a  collection  of 
data  objects  of  the  same  type  under 
one  name.  For  example,  a  string  is 
an  array  of  objects  of  the  type  char 
(character)  which  ends  with  a  zero. 


More  complex  data  objects  include 
the  structure,  which  is  a  collection 
of  objects  of  dissimilar  types  under 
one  name.  Each  member  of  a  struc- 
ture can  be  accessed  by  a  unique 
name,  although  the  entire  structure 
is  treated  as  a  logical  unit.  Not  only 
can  a  structure  accommodate  both 
arrays  and  simple  variables  within 
the  same  skin,  but  it  also  can  hold 
variables  of  different  types — char- 
acters, integers,  floating  point  num- 
bers, and  so  on. 

C  data  types  may  be  combined 
quite  freely,  allowing  you  to  create 
arrays  of  pointers,  pointers  which 
point  at  pointers,  arrays  of  struc- 
tures, pointers  to  structures,  self- 
referential  structures,  and  so  on. 
This  fact,  combined  with  C's  general 
economy  of  expression,  permits  you 
to  create  concise,  elegant  programs. 

Easily  Transportable 

The  C  language  does  not  provide 
input/output  (I/O)  functions  of 
any  kind  (it  has  no  keywords  such 
as  READ  or  OPEN,  for  instance). 
This  is  in  keeping  with  the  notion 
that  C  should  not  be  shackled  to  any 
single  computer  or  operating  sys- 
tem. However,  every  C  compiler  in- 
cludes a  so-called  standard  library  of 
common  I/O  functions  which  do 
tasks  such  as  printing  text,  reading 
and  writing  files,  and  so  forth.  A 
program  that  uses  nothing  but  stan- 
dard I/O  functions  should  be  trans- 
portable, with  littie  or  no  change,  to 
almost  any  computer  for  which 
there  is  a  C  compiler.  However,  this 
ideal  is  rarely  achieved  except  for 
very  plain,  generic  programs,  since 
most  programmers  will  want  to  take 
advantage  of  special  features  unique 
to  the  host  computer.  To  simplify 
the  process  of  translating  programs, 
C  programmers  often  segregate 
machine-specific  code  in  distinct, 
easily  identifiable  modules. 
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Every  programming  language  has 
its  friends  and  enemies,  but  per- 
haps no  language  stirs  up  as  much 
controversy  as  Forth. 

Forth's  notoriety  is  a  result  of  a 
significant  distinction  between  it 
and  other  popular  computer  lan- 
guages. While  most  languages  pro- 
vide a  set  of  standard  commands 
and  functions.  Forth  encourages 
you  to  extend  the  language  itself  to 
fit  the  task.  It's  been  said  that  Forth 
is  a  "toolbox/'  and  that  you  have  to 
build  every  program  from  spare 
parts.  Once  you've  written  several 
programs  in  Forth,  you've  built 
your  own  set  of  tools  to  make  writ- 
ing future  programs  easier. 

Forth  was  designed  by  one 
person — Charles  Moore^ — to  con- 
trol astronomical  instruments.  Its 
speed  and  size,  however,  have 
made  it  a  versatile  language  for 
microcomputers:  It  is  fast  and 
compact. 

Forth  is  a  low-level  language. 
This  means  that  when  you  program 
in  Forth,  you  are  very  close  to  pro- 
gramming in  the  computer's  native 
language.  Because  of  the  dense 
structure  of  Forth,  large  Forth  pro- 
grams may  be  even  smaller  than 
equivalent  machine  language  pro- 
grams. Forth  allows  easy  access  to  a 
machine's  hardware.  As  a  matter  of 
fact,  it's  as  easy  to  read  or  write  to  a 
hardware  port  as  it  is  to  read  or 
write  to  a  variable. 

Forth  is  often  one  of  the  first 
languages  to  appear  on  a  computer 
because  it  is  so  easy  to  write  a  Forth 
interpreter.  Sometimes  there  are 
good  Forth  implementations  even 
before  there  are  good  BASIC  imple- 
mentations. 


A  Difference  In  Notation 

People  who  are  used  to  languages 
like  BASIC  and  Pascal  are  usually 
shocked  when  they  see  their  first 
Forth  program.  This  is  partly  due  to 
the  fact  that  Forth  uses  postfix  nota- 
tion instead  of  infix  notation. 

Infix  notation  is  the  method  of 
calculating  that  we  learn  in  school  It 
is  the  notation  used  by  Texas  Instru- 
ments calculators  and  the  BASIC 
language.  Here  is  an  example: 
(1  +  2)  M5  -h  4> 

This  expression  evaluates  to  27.  Pa- 
rentheses are  used  to  specify  which 
calculations  are  to  be  performed 
first.  In  infix  notation,  you  always 
have  to  keep  the  order  of  opera- 
tions in  mind — for  instance,  multi- 
plication and  division  are  done 
before  addition  and  subtraction 
(unless  parentheses  indicate  other- 
wise). As  you  might  imagine,  com- 
puters are  slowed  down  by  taking 
all  these  rules  into  account. 

In  postfix  notation  (used  in 
Hewlett-Packard  calculators  and 
the  Forth  language),  the  same  ex- 
pression would  look  like  this: 

1  2  +  54  -h  * 

Postfix  notation  has  the  advantage 
of  never  requiring  parentheses.  The 
expression  is  evaluated  from  left  to 
right — always. 

Another  characteristic  of  post- 
fix notation  is  that  numbers  are  put 
onto  a  stack,  A  stack  is  simply  a 
place  to  hold  numbers.  It  is  a  LIFO 
(Last  In  /  First  Out)  structure.  This 
means  that  if  you  put  a  4  and  then  a 
5  into  the  stack,  you'll  get  the  5 
back  before  the  4.  Math  is  always 
done  this  way  in  Forth. 

Postfix  notahon  is  much  faster 
on  a  computer  than  infix  notation. 
Most  microprocessors  have  special 
commands  to  handle  stacks.  Some 
even  have  built-in  hardware  stacks. 
This  helps  make  Forth  very  fast 
indeed. 

Besides  its  heavy  use  of  stacks, 
the  critical  difference  between 
Forth  and  other  languages  can  be 
found  within  the  structure  of  Forth 
itself.  New  words  (which  are  equiv- 
alent to  procedures  and  subroutines 
of  other  languages)  are  defined  as  a 
series  of  pointers  to  previously  de- 
fined, lower-level  words.  The  path 
of  execution  of  a  Forth  program 


follows  these  pointers  from  high- 
level  words  down  through  lower- 
level  words  until  at  last  a  primitive 
word  is  reached.  (A  primitive  word 
is  one  which  is  defined  in  machine 
language  instead  of  Forth.)  Follow- 
ing this  path  is  like  untying  a  ball  of 
kite  string,  but  the  computer  man- 
ages the  task  with  breakneck  speed. 

Some  of  the  original  arcade 
games  were  programmed  in  Forth, 
games  that  would  be  nearly  impos- 
sible to  program  in  BASIC. 

Forth  is  fast  as  an  interpreted 
language,  but  there  are  still  a  few 
Forth  compilers  available.  However, 
compilers  don't  speed  up  Forth  as 
much  as  they  do  BASIC. 

Small,  But  Powerful 

Forth's  small  size  was  especially 
important  in  early  computers. 
Some  versions  of  Forth  have  been 
written  to  use  less  than  4K  of  mem- 
ory. Now  that  computers  have 
more  RAM,  new  Forth  packages 
emphasize  new  features.  Recent 
versions  of  Forth  for  the  ST,  Amiga, 
and  IBM  are  very  powerful  lan- 
guages which  allow  full  file  access, 
floating  point  numbers,  and  multi- 
tasking. 

There  are  disadvantages  to 
Forth,  too.  It  can  be  difficult  to  read, 
write,  and  debug.  Early  implemen- 
tations did  not  have  floating  point 
numbers,  and  Forth  advocates  are 
still  debating  whether  or  not  the 
advantages  of  floating  point  num- 
bers outweigh  the  disadvantages 
(floating  point  numbers  are  slower 
and  use  more  space).  Another  prob- 
lem is  file  storage.  Earlier  imple- 
mentations of  Forth  could  not  use 
the  standard  file  formats  of  the 
computers  they  ran  on.  But  recent 
implementations  have  solved  this 
problem,  too. 

Forth  remains  a  popular  lan- 
guage because  it  offers  great  flexi- 
bility. When  you  program  in  Forth, 
you  play  by  your  own  rules^ — ^it's 
possible  to  customize  and  personal- 
ize it  more  than  any  other  high- 
level  language.  Although  some  say 
that  it's  dangerous  to  program  at 
this  level,  others  demand  the  free- 
dom that  the  Forth  language  offers. 
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you  leap  over  black  holes,  purple 
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and  the  Atari  ST. 


Strap  yourself  into  a  Harrier  jet  and 
enter  the  dangerous  world  of  vertical 
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by  Chris  Crawford.  You  are  the  Presi- 
dent of  the  United  States.  Tension 
always  escalates  in  this  global  geo- 
political sinriulation  of  the  cold  war's 
cruel  reality.  Test  your  savvy  with  what 
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most  sophisticated  strategic  simula- 
tions in  America.  Available  on  the 
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For  those  whose  natural  tendencies 
veer  toward  disorder,  computer 
programming  can  degenerate  from 
a  pleasant  occupation  into  a  chaotic 
nightmare  in  as  little  as  a  few  short 
GOSUBs. 

Pascal,  with  its  structure  and 
its  rules,  can  help  keep  program- 
mers out  of  this  trouble,  as  well  as 
make  their  jobs  more  rewarding 
and  their  programs  more  useful. 

Pascal,  developed  by  Niklaus 
Wirth  in  the  1970s  as  a  teaching 
language,  is  named  in  honor  of  the 
seventeenth-century  philosopher 
and  mathematician  Blaise  Pascal. 
Wirth  reasoned  that  if  a  language's 
source  code  were  clear  and  under- 
standable, and  if  its  compiler  could 
identify  errors,  the  language  would 
be  an  efficient  teaching  tool.  Pro- 
grammers who  learned  Pascal  would 
have  a  solid  understanding  of  pro- 
gramming and  could  easily  pick  up 
other  languages  as  needed. 

As  it  turned  out,  Pascal  grew 
beyond  the  classroom  and  has  be- 
come a  development  tool  for  many 
programmers  who  need  a  language 
that's  easier  to  work  with  than  ma- 
chine language,  but  faster  than 
BASIC. 

Anyone  familiar  with  BASIC 
vdll  see  many  similarities  between 
it  and  Pascal.  Pascal  programs  ma- 
nipulate variables  and  arrays  and 
use  program-control  structures 
such  as  FOR-NEXT,  IF-THEN- 
ELSE,  and  WHILE-WEND  loops. 

Pascal  differs  from  BASIC, 
however,  in  that  it  imposes  specific 
rules  about  how  a  program  is  to  be 
constructed.  A  Pascal  program  con- 
sists of  the  following  items,  which 
must  appear  in  the  order  indicated: 

•  Program  identifier 

•  Constant,  type,  and  variable  dec- 
larations 

•  Definition  of  functions  and  pro- 
cedures 

•  The  main  program 


Help  Or  Hindrance? 

Pascal's  detractors  complain  that 
the  rigid  rules  and  set  structure  sti- 
fle creativity;  those  who  have 
grown  fond  of  the  language  lean 
heavily  on  its  structure  for  support, 
Using  the  framework  required  by 
Pascal,  proponents  claim,  they  can 
spend  more  of  their  time  deciding 
how  the  program  will  work  rather 
than  how  it  will  be  written.  In  addi- 
tion, the  rules  help  the  compiler 
detect  and  flag  errors,  which  in  turn 
helps  the  programmer  debug  the 
program. 

For  example,  Pascal  requires 
that  all  variables  be  declared  before 
being  used.  Declaring  a  variable 
simply  involves  stating  the  variable 
name  and  the  type  of  data  the  vari- 
able can  hold.  The  following  vari- 
able declarations  might  be  used  in 
an  adventure  game: 

VAR 

score  :  integer; 

level  :  integer; 

strength  :  real; 

Now,  assume  that  the  program 
contains  the  following  lines: 


score 
lever 


strength; 
level  H-1; 


When  the  program  is  com- 
piled, both  lines  will  generate  er- 
rors. In  the  first  case,  the  variables 
are  of  different  type.  You  cannot 
assign  the  value  held  in  strength  (a 
real  variable)  to  the  variable  score 
(an  integer  variable)  because  the 
types  are  incompatible.  In  the  sec- 
ond line,  notice  that  the  program- 
mer has  accidentally  typed  lever 
instead  of  level.  Because  the  vari- 
able lever  has  not  been  declared, 
the  compiler  will  report  that  lever  is 
an  unknown  variable.  Upon  seeing 
this,  the  programmer  immediately 
recognizes  the  typographical  error 
and  corrects  it.  This  type  of  incon- 
spicuous error  can  be  elusive  in 
BASIC. 

Pascal  programs  are  usually 
written  as  a  series  of  subroutines 
that  are  called,  as  needed,  by  the 
program's  main  body.  Essentially 
the  goal  of  a  Pascal  programmer  is 
to  break  down  every  task  into  a 
series  of  subtasks,  writing  a  sepa- 
rate subroutine  to  handle  each  of 
the  subtasks. 

These  subroutines,  called  pro- 
cedures and  functions  in  Pascal,  are 
designed  to  be  relatively  indepen- 
dent. That  is,  they  can  be  tested  and 


debugged  separately  from  the  rest 
of  the  program.  Making  a  change  in 
a  procedure  or  function  should  only 
affect  the  small  task  being  per- 
formed by  that  procedure  or 
function. 

Subroutines  are  just  like  mini- 
Pascal  programs:  They  consist  of  a 
name;  constant,  type,  and  variable 
definitions;  function  and  procedure 
definitions;  and  a  main  body. 

Extending  The  Language 

Procedures  and  functions  are  the 
building  blocks  with  which  you 
both  construct  a  program  and  ex- 
tend the  language  itself.  Once  a 
subroutine  works  in  Program  A,  you 
can  use  it  in  Program  B  as  well  Let's 
say  you  wrote  the  procedure  to  con- 
vert a  string  to  uppercase  and  print 
it  on  the  screen.  You  might  call  it 
Print—  Up— String.  This  procedure 
could  then  be  compiled  into  and 
used  in  any  future  program  you 
might  write.  It's  the  equivalent  of 
adding  a  new  keyword  to  BASIC. 

A  mathematician  might  devel- 
op a  set  of  subprograms  that  effi- 
ciently handle  certain  calculations. 
Someone  who  works  extensively 
with  data  files  would  develop  pro- 
cedures for  opening,  closing,  and 
reading  files. 

This  ability  to  reuse  completed 
and  debugged  subprograms  saves 
time  and  builds  the  confidence  of 
any  programmer.  Once  you've  built 
up  a  library  of  subroutines,  you'll 
be  more  confortable  attacking  larg- 
er, more  sophisticated  projects. 

Scope  Of  Variables 

Another  way  Pascal  differs  from 
BASIC  is  in  scope,  which  is  the 
range  in  which  a  variable  is  effec- 
tive. In  BASIC,  variables  are  global; 
that  is,  they  can  be  referenced  from 
anywhere  in  the  program.  Pascal 
can  use  global  variables,  but  the 
language  also  makes  heavy  use  of 
variables  with  lesser  scope,  and  this 
contributes  to  the  ease  vdth  which 
procedures  and  functions  can  be 
used  as  program  building  blocks. 

When  a  variable  is  declared  at 
the  top  of  a  Pascal  program,  it  is  a 
global  variable,  and  it  can  be  refer- 
enced or  manipulated  anywhere  in 
the  program.  When  a  variable  is 
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declared  within  a  subprogram,  its 
scope  is  limited  to  that  subprogram. 
Wheri  the  subprogram  is  called, 
Pascal  creates  the  variable  and 
tracks  it,  but  when  the  subprogram 
is  exited,  the  variable  is  deleted  and 
the  space  it  occupied  in  memory  is 
made  available  for  other  uses. 

The  same  variable — the  tradi- 
tional loop  counter  /,  for  example — 
can  be  used  in  several  subprograms 
without  conflict.  As  long  as  the 
scope  of  a  Pascal  variable  is  limited 
to  one  subprogram,  you  need  not 
worry  about  using  unique  variable 
names. 


When  To  Use  Pascal 

Pascal  can  be  used  for  any  pro- 
gramming project,  but  it  is  most 
useful  for  programs  that  are  regu- 
larly used.  Because  they're  written 
in  a  compiled  language,  Pascal  pro- 
grams run  mdny  times  faster  than 
those  written  in  an  interpreted  lan- 
guage like  BASIC.  However,  it 
usually  takes  longer  to  write  a  Pas- 
cal program  than  to  write  a  similar 
BASIC  program. 

For  short  utility  programs  that 
will  be  run  once — or  twice — you're 
probably  better  off  sticking  to 
BASIC,  but  if  you're  writing  a  pro- 
gram to  be  used  daily  in  your  busi- 
ness, Pascal  is  a  good  language  to 
use.  The  increased  speed  will  be 


appreciated  by  those  who  use  the 
program,  and  you,  the  program- 
mer, will  appreciate  the  ease  with 
which  you  can  make  minor  changes 
as  needs  dictate. 

Learning  the  elements  of  Pas- 
cal is  relatively  easy,  but  some  of 
the  language's  more  advanced  fea- 
tures, such  as  the  ability  to  create 
new  data  types,  to  manipulate  com- 
plex data  structures,  and  to  manage 
large  amounts  of  memory  through 
the  use  of  pointers,  require  a  bit 
more  study.  Once  you've  mastered 
these  topics,  however,  you'll  find 
Pascal  able  to  handle  most  pro- 
gramming problems. 


ModiXi 


Tim  Midkiff 
Editorial  Programmer 

Modula-2,  introduced  in  1980  by 
Niklaus  Wirth,  the  creator  of  Pas- 
cal, was  designed  to  provide  a  clear 
and  natural  way  to  solve  common 
programming  problems,  Wirth  also 
wanted  the  language  to  be  suitable 
for  large-scale  software  develop- 
ment and  system-level  program- 
ming (teams  of  people  working  on  a 
single  program). 

Modula-2  provides  faciHties 
for  looping,  branching,  and  proce- 
dures that  closely  resemble  their 
Pascal  counterparts.  The  languages 
are  very  similar,  so  Pascal  program- 
mers can  easily  adapt  to  Modula-2. 

Compiler  Requirements 

Modula-2  compilers  require  that  all 
variables  be  declared.  The  standard 
data  types  include  arrays,  enumera- 
tion, subrange,  sets,  records,  and 
pointers.  Type  checking  is  per- 
formed on  the  usage  of  variables. 
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Type  checking  insures  that  assign- 
ments and  expressions  do  not  con- 
tain incompatible  data  types.  As  an 
example,  assuming  that  i  had  been 
declared  an  integer  and  x  had  been 
declared  a  real  variable  (a  variable 
which  can  include  a  decimal  point 
and  fractions),  the  compiler's  type 
checking  would  flag  this  line  as 
illegal: 

Type  transfer  funchons  are  pro- 
vided to  allow  operations  that  may 
be  illegal  under  normal  type  check- 
ing. For  example,  using  the  same 
variables  as  in  the  above  example 
and  a  type  transfer  function,  this 
line  would  now  be  considered  legal 
by  the  compiler: 
X  :=  REAL(i); 

Modules  and  coroutines  pro- 
vide support  for  group  software  de- 
velopment. Modules  are  separately 
compiled  units  which  allow  pro- 
grammers to  build  libraries  of  code 
that  can  be  imported  by  other  pro- 
grams. Modules  declare  all  proce- 
dures and  data  which  can  be 
imported  by  other  programs.  This 
facilitates  data  hiding,  which  pre- 
vents inadvertent  changes  to  vari- 
ables. The  coroutine  support  also 
allows  programs  to  transfer  control 
to  other  programs,  allowing  the  soft- 
ware to  simulate  multiprocessing. 


The  low-level  support  pro- 
vides many  functions  necessary  to 
access  machine-specific  features. 
Absolute  addressing  allows  access 
to  specific  memory  locations  such 
as  ports  and  system  variables. 
There  are  procedures  which  return 
the  address  of  variables  or  the 
amount  of  memory  used  to  store 
the  variable.  Also,  there  is  a  proce- 
dure which  allows  the  insertion  of 
machine  language  routines  by  giv- 
ing the  opcode  and  operands  for  an 
instruction.  This  is  useful  to  speed 
the  execution  of  time-critical  sec- 
tions of  a  program.  Bit  manipula- 
tions are  provided  as  part  of  the  set 
data  type. 

Modula-2  is  a  compact  lan- 
guage with  only  about  40  reserved 
words.  Much  of  the  machine- 
specific  programming  is  provided 
in  the  libraries.  There  are  standard 
libraries  for  I/O,  strings,  files,  co- 
routines, and  low-level  machine 
routines.  Most  implementations  of 
the  language  for  personal  comput- 
ers provide  system  calls  as  part  of 
the  libraries.  This  is  an  important 
consideration  when  you're  compar- 
ing implementations,  as  it  greatly 
facilitates  programming.  @ 
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COMPUTEI's  First  Book  of  the  Atari  ST 

Edited 

A  valuable  collection  of  ready-to-type-in-and-use  applications,  games,  and 
utilities.  Graphics  utilities  like  "ST  Doodler/'  games  like  "Switchbox"  and 
'Tug-a-War/'  and  educational  programs  like  "Hickory  Dickory  Dock"  turn 
your  Atari  ST  into  everything  from  a  business  graphics  machine  to  a  powerlul 
teaching  tool.  Tutorials  show  you  how  to  add  power  to  ST  BASIC  and  how 
to  add  excitement  to  your  own  creations  with  sound  effects,  A  disk  is  avail- 
able for  $15.95  which  includes  all  the  programs  in  the  book, 
203BDSIC 
$16.95     ISBN  0-87455-020*3 

The  Elementary  Atari  SI 

William  B.  Sanders,  272  pages 

A  friendly,  easy-to-use  guide  to  the  Atari  ST,  this  book  takes  you  through 

connecting  your  computer,  loading  programs,  creating  graphics  and  music, 

and  writing  your  own  programs. 

$18.95     ISBN  0-87455-024-6 

Elementary  ST  BASIC 

C.  Regena,  20fl  pages 

A  tutorial  and  reference  guide  to  the  ST's  impressive  graphics,  animation, 

and  sound  with  complete  descriptions  of  ST  BASIC'S  commands,  syntax,  and 

organization.  A  disk  is  also  available  for  $15.95  which  includes  programs 

from  the  book,  3438DSK. 

$14.95     ISBN  0-87455-034-3 

COMPUTEJ's  Kids  and  the  Atari  ST 

Edward  H.  Carlson,  238  pages 

Easy-to-understand  instructor  notes,  lessons,  assignments,  and  lively  illustra- 
tions help  both  kids  and  adults  painlessly  learn  to  program  on  the  Atari  ST. 
The  latest  in  the  bestselUng  series  by  this  author. 
$14.95     ISBN  0-87455-038-6 

COMPUTE!'s  ST  Programmer's  Guide 

Editors  of  COMPUTE!,  356  pages 

A  comprehensive  reference  guide  to  the  Atari  ST,  this  book  explores  in  detail 
Logo  and  BASIC,  the  advanced  features  of  the  ST  such  as  GEM  and  TOS, 
and  every  aspect  of  programming  from  concepts  to  actual  program  writing. 
$17.95     ISBN  0-87455-023-8 

Introduction  to  Sound  and  Graphics  on  the  Atari  ST 

Tim  Knight,  197  pages 

Thorough  descriptions  of  the  Atari  ST's  color  graphics  and  sound  abilities, 

plus  all  the  infonnation  needed  to  create  a  complete  sound  and  graphics 

system, 

$16.95     ISBN  0-87455-035-1 
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For  Daisy  Wheel,  Dot  Matrix  &  Ink  Jet  Printers 

*89*«  Desktop  Publishing  Breakthreush 

Imagine  using  a  word  processing  and  drawing  program  that  lets  you  integrate  charts  and  pictures  that  you  'paint' 
or  'dip' into  your  text  Weii,  if  you  use  an  iBIS/f  PC  or  Clone,  now  you  can  have  graphically  dramatic  documents, 
from  business  or  personal  letters,  to  proposals,  to  organization  charts,  even  with  a  daisy  wheel  printer. 

the  sophisticated  drawing  program  that        UnfortunatelyJ  couldn't  have  my  graph 
lets  you  draw,  paint,  fill,  expand,  reduce       "  " 


By  Dfew  Kaplan 

It's  easy.  It's  impressive.  And,  now 
your  thoughts  can  be  powerfully  illus- 
trated  in  both  words  and  graphics. 

After  all,  for  illustrating  abstract  data 
and  thoughts,  nothing  beats  a  dramatic 
chart  or  drawing.  So,  let  your  ideas  leap 
off  the  page  by  using  integrated  text  and 
graphics.  Yourthoughtsaresureto  make 
an  impressive  impact. 

Whether  you  write  letters,  bank  pro- 
posals, term  papers,  company  manuals 
or  news  letters,  you  can  forget  com- 
plicated and  expensive  laser  printing. 
And,  you  can  forget  complicated  expen- 
sive desktop  publishing  programs. 

Now  for  just  $89^,  you  can  use  your 
daisy  wheel,  dot  matrix  or  ink  jet  printer 
to  print  normal  text.  Plus,  you  can  inte- 
grate simply  fabulous  graphs  and  draw- 
ings into  your  creations. 

INCREDIBLY  EASY 

Savtek,  a  brain  trust  group,  has  de- 
veloped an  easy  to  use  yet  incredibly  so- 
phisticated integrated  word  processing 
and  graphics  program. 

Just  create  your  letters,  proposals,  or 
reports  as  you  would  with  any  other 
word  processor.  In  fact,  if  you  already 
have  a  document  created  in  virtually  any 
other  word  processor,  you  can  'grab'  it 
into  Savtek's  instantly. 

You'll  produce  visually  powerful  tech- 
nical papers  and  manuals  with  drawings 
and  charts,  and  dramatic  marketing  re- 
ports with  graphs.  You'll  produce  sales 
proposals  with  panache. 

And  since  there's  no  complicated  train- 
ing needed  (if  you  can  run  a  word  pro- 
cessor, you  can  run  Savtek),  you'll  make 
great  impressions,  fast. 

Anyway,  once  you've  created  the  writ- 
ten part  of  your  report,  using  Savtek's 
sophisticated  automatic  word  process- 
ing features,  you're  ready  to  add  pic- 
tures, charts  and  graphs. 

Just  select  from  the  over  100  sup- 
plied changeable  pictures  or  draw  your 
own,  using  the  automated  ICON  based 
drawing  program. 

Later,  you'll  learn  much  more  about 


copy,  and  move  your  pictures. 

And,  you'll  form  squares,  circles  and 
triangles  automatically.  Anyone  can  draw 
with  it  because  it's  totally  automated 
and  uses  arrow  keys  and  doesn't  require 
a  mouse.  But,  read  on. 

Once  you've  selected  a  picture,  the 
computer  will  produce  an  automatically 
sized  box  representing  it.  Just  position 
the  box  wherever  you  want  the  picture 
to  be  in  the  text 

Like  magic,  the  actual  picture  will 
appear  and  the  text  will  automatically 
reformat  itself  around  it. 
And,  speaking  of  reformatting,  this  pro- 
gram will  automatically  make  page- 
breaks  and  recalculate  each  page  as  you 
write  or  edit.  If  you  make  an  addition  to 
pagel  of  a  10  page  report,  the  effect  will 
ripple  through  all  10  pages. 

So,  whatever  length  you've  chosen 
for  each  page  (including  headers,  foot- 
ers and  automatic  page  numbering),  will 
automatically  be  preserved. 

You'll  particularly  like  the  cut  and  paste 
features  of  this  word  processing  pro- 
gram which  allow  you  to  copy,  move  or 
delete  sections  of  your  text. 

Of  course,  you'll  have  automatic  Word- 
wrap, Hidden  Hyphenation,  Justified 
Smooth  Right  or  Ragged  Right  text.  Plus, 
you'll  have  Find,  Replace  and  Search. 

And  look  how  you  can  format  your 
document.  There  are  5  page  templates 
called  rulers  which  allowyou  to  automa- 
tically set  up  your  page. 

You  can  select  any  right  and/or  left 
margins,  your  tabs,  one,  two  or  three 
line  spacing,  and  the  number  of  blank 
lines  at  the  top  and  bottom  of  your  page. 

Each  of  the  5  rulers  comes  with  dif- 
ferent default  settings.  But,  you  can  ad- 
just and  save  them  or  change  them  and 
even  use  several  at  one  time  on  a  page. 
HOW  DO  THE  PRINTERS  WORK? 

I  use  a  daisy  wheel  printer  because  1 
like  my  letters  to  look  personal.  I've 
always  had  to  switch  to  a  dot  matrix 
printer  for  graphs  and  illustrations. 


ics  on  the  same  page  as  my  text. 

Now,  because  this  program  can  use 
the  period  on  the  daisy  wheel  to  create 
all  the  charts  and  graphic  symbols  you 
see  within  this  ad,  I  don't  need  to  switch 
printers  any  more. 

And  while  it  doesn't  create  the  graph- 
ics as  fast  as  a  dot  matrix,  the  quality  is 
superb.  Now  my  graphics  can  be  impres- 
sively integrated  into  my  text. 

Note:  Every  single  sample  page  shown 
in  this  ad,  was  printed  out  on  my  EXP 
400  Silver  Reed  daisy  wheel  printer. 

NoteiThis  program  does  not  produce 
two  column  news  letters  in  a  single  ac- 
tion. Simply  create  a  double  length  col- 
umn and  cut  it  when  you  have  it  printed. 

No  matter  what  printer  you  use,  daisy 
wheel,  dot  matrix  (with  or  without  near 
letter  quality  printing)  or  ink  jet  (color  or 
single  color),  you'll  have  powerful  look- 
ing documents  to  really  present  your 
ideas  in  the  most  professional  manner. 
DESKTOP  PUBLISHING 

Desktop  publishing  is  about  the  hot- 
test category  of  computer  programming. 
It  seems  that  everyone  has  discovered  the 
impact  of  combining  text  and  graphics. 

And  very  impressive  presentations 
are  just  what  Savtek's  ETG  Desktop  pub- 
lishing system  provides  for  you. 

Imagine  leveraging  the  capabilities  of 
your  own  IBM  or  Clone,  your  own  prin- 
ter and  your  own  keyboard  to  produce 
the  documents  you  see  on  these  pages, 
with  nothing  else  to  buy. 

THE  1000  WORD  PICTURE 

First  a  confession.  I  can't  draw.  That's 
why  you  don't  see  drawings  in  DAK's  cat- 
alogs. But  I've  been  amazed  at  how  cre- 
ative !  can  be  with  this  paint  program. 

It's  easy.  You  do  everything  with  the 
arrow  keys  and  the  return  key.  By  using 
the  arrow  keys  you  can  draw  in  any  direc- 
tion with  a  choice  of  12  brush  shapes. 

There's  an  erase  function  to  eliminate 
anything  you  don't  like.  And  here's  my 
favorite  function.  UNDO  is  a  function 
that  works  throughout  this  program. 

.  .  .Next  Page  Please 


.  .  .Publishing  Continued 

It  simply  removes  the  last  thing  you 
did.  So,  no  matter  what  you  do  wrong, 
you're  a  button  away  from  removing  it. 

If  you  don't  want  a  solid  line,  just 
spray  an  area.  It's  like  using  a  spray  can. 

Let's  say  you  want  to  connect  two 
pointswith  a  straight  line.  Use  the  Angle 
Line.  It  produces  a  computer  generated 
straight  line  between  any  two  points. 

What  if  you  want  a  circle?  Just  touch 
the  return  key.  Then  use  the  diagonal 
arrow  key  to  enlarge  or  reduce  the  cir- 
cle. If  you  use  the  up/down  or  right/left 
arrows,  you'll  get  an  ellipse. 

In  the  same  way  you  can  create  squares, 
rectangles  or  triangles.  And  you'll  be 
amazed  how  many  things,  from  houses 
to  technical  drawings,  are  made  up  of 
squares,  rectangles,  circles  and  triangles. 

But,  that's  not  all.  You  can  choose  any 
of  32  background  patterns  to  fill  in  en- 
closed areas  or  broad  lines.  And  if  32 
isn't  enough,  you  can  design  your  own. 

There's  so  much  more.  You  can  juggle 
a  picture.  Imagine,  turning  it  over  or 
sideways  with  the  touch  of  a  button. 


Advertisement 

You  can  copy  or  move  a  picture  or 
even  part  of  a  picture  right  on  the  screen. 
So,  draw  it  once  and  copy  it  or  move  it. 

But,  here's  my  favorite.  You  can  en- 
large or  reduce  any  picture  or  part  of  a 
picture  right  on  the  screen.  So  you  can 
change  its  size  equally,  oryou  can  stretch 
it  out  or  make  it  tall  and  thin.  Wow! 

There  are  1  2  included  font/sizes.  So 
you  can  have  large  or  small  type  in  your 
choice  of  styles  within  a  picture  or  inte- 
grated with  your  text. 

And,  each  of  the  1 2  font/sizes  can  be 
shown  on  the  screen  and  printed  nor- 
mally, in  bold,  in  italic,  in  outline,  or  in 
shadow.  Plus,  you  can  write  normally 
across  the  page,  up  the  page,  down  the 
page  or  upside  down. 

Finally,  you  can  zoom  into  any  small 
section  of  the  screen  and  edit  your  pic- 
tures, pixel  by  pixel.  With  this  kind  of 
power,  you  don't  need  to  be  an  artist, 
just  have  the  ability  to  push  a  button. 

You  can  operate  this  Paint  program 
independently.  Or,  you  can  access  any 
picture  from  within  word  processing. 

So,  for  banners  and  pictures,  you  can 
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print  directly  from  the  Paint  Program, 
Or,  for  everything  previously  described, 
simply  access  your  pictures,  captions, 
graphs  or  charts  through  the  desktop 
publishing  section. 

This  program  is  incredibly  powerful, 
yet  you'll  be  comfortable  using  it  within 
just  a  few  hours. 

Every  picture  in  this  ad  was  created 
with  this  program.  And,  you  haven't  even 
seen  the  tip  of  the  iceberg  of  its  capabil- 
ities. For  example,  if  you  have  a  picture 
on  the  screen,  you  can  bring  a  second 
picture  up  and  join  them  together. 
WHO  Cim  USE  THE  SYSTEM 

All  you  need  is  an  IBM  PC,  AT,  XT  or 
1 00%  compatible  with  standard  IBM  CGA 
or  EGA  graphics  capability.  It  must  have 
at  least  256K,  and  eithertwo  floppy  disk 
drives  or  one  floppy  and  a  hard  disk. 

Below  is  a  list  of  some  of  the  dot  ma- 
trix, Inkjet  and  daisy  wheel  printers  that 
have  been  tested  with  this  program.  If 
your  printer  is  compatible  with  any  of 
these  printers,  it  should  work  too. 

Special  Note:  Most  daisy  wheel  print- 
ers are  Diablo  620/630  compatible,  so 
they  will  work  with  this  program. 

Special  Note:  With  a  color  printer  you 
can  print  3  colors  plus  black  text. 

CJtoh  8510,  Epson  Fx-80,  FX-SS.  FX-185.  JX-80  (color). 
LQ-800,  LQl  500,  LX80,  MX80  with  Grsftrex  Ptus  or  Graftrax, 
fiX-80,  Hovvlen  Packard  2225C  Think  Jet  or  Quietjet.  Laser- 
Jet, or  LaserJet  Plus.  IBM  80CPS  Graphics  PTinter.  IBM  Pro- 
pnnter,  IBM  385'2  Jetprinter (color),  Juki  6100.  ManrtAtmann 
Tally  Spirit  80.  NEC  3500,  3510,  3520,  3530,  3550,  5500 
senes,  B023A,  NEC  Pinwriter  PSXL,  P6,  P7,  (singla  or  colorj. 
OKIDATA  Microline  92.  ML92,  w/IBM  Plug  &  Play.  MieroJine 
1 93.  20  (color),  Panasonic  KX-P1 091 .  KX-Pl 091  >,  Quadram 
Quadjei  (color).  Radio  Shack  OMP-200,  Silvar  Reed  EXP  400, 
600.  800  and  all  EXP  series,  Star  Micronics  SG-10,  Taxaa 
Inttrunnema  855.  865,  Xerox  (DiabEo)  620.  630. 

FINAL  FACTS 

There's  a  pop  down  calculator  which 
lets  you  deposit  your  results  right  into 
your  text,  A  clock/timer  picks  up  the 
time  from  your  computer,  and  there's  a 
7,300  year  calendar.  They  are  all  avail- 
able as  pop-down  windows.  Savtek's 
program  is  backed  by  a  standard  limited 
software  warranty /license.  It  comes  with 
a  superb,  easy  to  use  reference  manual. 
DESKTOP  PUBLISHING  FOR  YOU 
RISK  FREE 

Make  your  ideas  explode  in  front  of 
your  readers.  When  you  send  out  a  letter 
or  proposal,  let  it  be  really  dramatic. 
They  will  be  your  ideas,  but  you'll  be 
presenting  them  like  never  before. 

If  you're  not  100%  satisfied,  simply 
return  it  in  unused  condition  within  30 
days  for  a  courteous  refund. 

To  order  Savtek's  ETG  Integrated 
Word  Processing  and  Graphics  Desktop 
Publishing  System  for  your  IBM  PC  or 
Clone,  call  toll  free  or  send  your  check 
for  the  breakthrough  price  of  just  $89*** 
($4  P&H)  Order  No.  4801 .  CA  add  tax. 

Look  at  the  1  2  sample  pages  1  created. 
You'll  see  graphs,  pictures  and  charts 
mixed  into  my  text.  I  even  designed  a 
logo  for  my  newsletter.  Just  think  about 
the  impact  you'll  make  when  you  pre- 
sent your  ideas  with  a  combination  of 
text  and  graphics.  And  oh,  it's  so  in- 
credibly easy  to  use. 

IBM  is  a  registered  trademark  of  Internationa!  Business  Machines- 
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Call  Tqll  Fr*e  For  Credit  Cird  Ordefi  Only 
24  Hours  A  Day  7  Dayi  A  Weak 

cpes     |,«oo-115-0800 
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For  Toll  Fraa  Ififormation,  Call  6AM-5PM  Monday-Friday  PST 

Technical  Information 1-800-272-3200 

Any  Other  Inquiries 1-800-423-2866 

8200  Remmet  Ave.,  Canoga  Park,  CA  91304 
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Bold  Presentations 

Unleash  the  dramatic  presentation  power  of  your  IBM  PC  or  Clone,  with  Quadram  's  7 -Co  for  Ink  Jet  Printer  You  II  pro- 
duce attention  grabbing  professional  graphs,  charts,  and  drawings  with  the  complete  ADDED  software  DAK  has  put  to- 
rn Quadram's  $495  Color  Ink  Jet  Printer       O  Softkey's  $1 49  Keychart  •  DAK's  $49*^  DAKGraf 
•  DRI's  New  $299  Gem  Draw  Plus           OSavtek's  $89^  Desktop  Publishing       •  Logitech's  $119  LogiMouse  Plus 
gether  It  connects  instantly.  And,  you  get  EVERYTHING,  a  $1201^  value,  for  Just  $499,  WOWf 

By  Drew  Kaplan  types  of  dramatic  pictures  and  text  auto-      colors.  The  other  colors  are  obtained  by 

Let  your  ideas  explode  in  front  of  your      matically  with  Savtek's  Desktop  Pub- 


readers.  Demonstrate  what  you  want  to 
say  with  dramatic  charts,  graphs,  pic- 
tures and  even  technical  illustrations. 

If  you're  like  me,  columns  of  numbers 
are  boring.  Now  you  can  effortlessly  pro- 
duce sophisticated,  multicolor  graphs 
and  charts  that  will  rivet  your  reader's 
attention  to  your  presentation. 

Turn  your  thoughts,  calculations  or 
sales  results  into  a  profusion  of  color 
that  simply  can't  be  ignored. 

This  Quadram  7-Color,  virtually  silent, 
ink  jet  printer,  and  all  the  software  I  have 
added,  will  let  you  make  your  most  com- 
plex concepts  easy  to  understand. 

And,  it  will  presentyour  easy  to  under- 
stand numerical  data  and/or  visual  con- 
cepts in  an  incredibly  impressive  manner, 
WHAT  YOU  NEED 
You'll  need  an  IBM  PC,  XT,  AT  or  Clone 
with  256K  of  RAM,  except  for  Gem  Draw 
Plus  which  requires  at  least  384K.  You 
need  two  floppy  disk  drives  or  a  floppy 
and  a  hard  disk. 

And,  all  these  programs  require  only 
standard  IBM  CGA  Graphics  (EGA  is  great 
of  course).  Plus,  you  don't  even  need  a 
color  monitor  to  use  them. 

WHAT  IS  INK  JET  PRINTING? 

In  3  few  minutes  you'll  learn  how  easy 
it  is  to  instantly  create  multicolor  Pie, 
Line  and  Bar  Charts  with  DAKGraf.  With 
Keychart  you  can  quickly  create  sophisti- 
cated Hi/Low  Stock  market  Charts,  Scat- 
ter Charts,  Exploded  Pie  Charts  and  a 
myriad  of  presentation  charts  from  easy 
to  follow  menus. 

If  you  want  to  Paint,  you  can  create  all 


lishing  Software. 

And  finally,  Digital  Research's  new 
Gem  Draw  Plus  lets  you  create  the  most 
sophisticated  drawings  ever.  It  is  object 
oriented  so  you  can  even  lay  shapes  on 
top  of  one  another  and  then  move  them, 
expand  them,  reduce  them  or  copy  them. 

Plus,  I've  included  Logitech's  C7  Serial 
Mouse  with  Plus  Software.  So,  not  only 
can  you  use  this  mouse  for  creating  draw- 
ings, just  wait  till  you  use  it  for  Lotus  or 
any  other  mouse  supporting  programs. 

Logitech  says  that  the  Plus  Software 
with  this  mouse  can  increase  the  pro- 
ductivity of  even  the  most  experienced 
1  -2-3  user  by  up  to  30%. 

In  virtually  every  computer  magazine  I 
see,  Logitech  sells  this  mouse  direct  for 
$119.  Wait  till  you  see  all  it  can  do  for 
your  productivity. 

But  let's  look  at  the  printer.  It  simply 
plugs  into  the  parallel  output  of  your 
computer.  And,  don't  worry  about  re- 
placing your  printer. 

I've  got  an  inexpensive  option  that 
lets  you  switch  from  your  regular  printer 
to  this  silent  7-color  ink  jet  printer  with 
the  push  of  a  button. 

Anyway,  speaking  of  7  colors,  let  me 
tell  you  what  they  are  and  how  easy  they 
are  to  use.  First,  there  are  no  messy  ink 
trays  or  bottles.  The  ink  is  supplied  in  2 
sealed,  plugnn  plastic  packs  (Included), 

One  pack  supplies  4,000,000  charac- 
ters of  black.  The  second  pack  supplies 
3,000/000  characters  of  yellow,  blue 
(cyan),  and  red  (magenta). 

These  are  the  industry  standard  basic 


the  printer  using  two  colors  at  once. 

So,  you'll  print  in  black,  yellow,  red, 
blue,  green  (yellow  and  blue),  orange 
(yellow  and  red)  and  purple  (blue  and 
red).  You'll  simply  have  to  see  the  colors 
to  see  how  really  vibrant  they  are. 

And  speaking  of  vibrant,  if  they  aren't 
sharp,  they  aren't  vibrant.  And,  this  print- 
er can  lay  down  640  single  dots  per  line 
at  a  speed  of  2600  dots  per  second. 

You'll  create  incredibly  sharp  detail, 
even  in  multicolors.  Just  look  at  the  main 
picture  above  to  get  a  minuscule  idea  of 
what  this  printer  is  capable  of  producing. 

You  can  produce  your  graphs,  pictures, 
drawings,  or  text  (of  course  it  has  a  full 
ASC1 1  character  set,  plus  enlarged  type) 
on  just  about  any  material  you  choose, 
from  letterhead,  to  plain  paper,  to  roll 
paper,  to  overhead  transparencies, 

Quadram's  printer  has  all  the  expec- 
ted features,  including  Line  Feed,  Form 
Feed,  paper  error/end  and  two  self-test 
modes.  But  basically,  it's  control  free. 

Just  plug  it  in,  put  in  the  paper  and 
printl  It's  virtually  maintenance  free  be- 
cause the  ink  jets  are  self  cleaning. 

As  you'll  see  from  the  following  soft- 
ware, there's  almost  no  limit  to  the  pre- 
sentations you  can  create  with  this  printer. 

And  please  note:  I  went  to  5  separate 
companies  to  gather  this  software  and 
mouse.  This  isn't  cheap  bundled  software. 

Just  price  Gem  Draw  Plus  at  $299  and 
the  Logitech  Mouse  at  $  1 1 9  at  any  com- 
puter store,  and  you'll  see  just  what  an 
incredible  value  this  system  is. 

We  had  to  guarantee  not  to  sell  the 
.  .  .Next  Page  Please 
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.  ,  .Presentations  Continued 
software  separately  and  we  had  it  ship- 
ped to  us  without  the  normal  fancy  retail 
decorative  binder/boxes. 

Note:  I  understand  that  Keychart  was 
once  sold  with  Quadram's  printer,  but 
we  bought  it  direct  from  Softkey. 

Anyway,  other  than  the  boxes,  you  get 
the  same  complete  programs.  There  are 
drivers  for  dozens  of  other  printers,  every 
word  in  every  manual  is  included,  and 
every  part  of  each  program  is  included. 

Now,  let's  take  a  look  at  all  the  things 
you  can  do.  If  you're  already  familiar  with 
any  of  the  software,  you'll  know  that  the 
following  descriptions  are  simply  thetip 
ofthe  iceberg  of  the  presentation  graph- 
ics resources  that  you'll  command. 
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$49^  DAKGRAF 

Now  you  can  create  powerful,  vibrantly 
colored  graphs  that  really  get  your  mean- 
ing across.  You'll  be  producing  graphs 
in  seconds,  I  find  it  easier  to  spot  trends 
with  a  graph  than  with  a  spreadsheet. 

Let's  make  a  simple  one  element  graph. 
Just  enter  up  to  12  numerical  values 
(called  observations).  Then  touch  G.  Then 
select  a  Pie,  Line  or  Bar  graph. 

Instantly  you'll  see  a  full  preview  of 
your  graph.  But,  there's  lots  more. 

If  you  touch  ESC,  you  can  re-select 
another  type  of  graph  and  it  will  instantly 
appear,  using  your  existing  data.  So,  you 
can  choose  the  type  of  graph  you  want. 

Anyway,  if  you've  selected  Line  or  Bar 
charts,  the  tick  marks  and  values  (called 
scaling)  that  you  see  on  the  left  side  of 
most  graphs,  can  be  added  automatically. 

Across  the  bottom  of  your  chart,  you're 
going  to  want  to  assign  names  to  the  1 2 
observation  points  we've  chosen. 

The  names  may  be  people,  things  or 
months.  Just  touch  ALT  M,  and  the 
Months  will  appear  automatically.  Finally, 
you  can  add  or  move  floating  captions. 

Pie  charts  are  also  very  easy.  When 
the  pte  chart  prints  out,  it  can  either 
show  the  actual  number  beside  each 
slice  or  the  percentage  of  the  whole. 

So  far,  we've  made  a  simple  one  ele- 
ment graph.  But  for  Line  and  Bar  charts, 
you  can  have  4  elements.  So,  at  each 
observation,  you'll  have  up  to  4  different 
colored  bars  or  lines.  You  can  compare 
profits,  costs,  sales  and  salaries. 

Below  the  graph,  a  box  with  the  appro- 
priate color  is  printed.  Just  type  a  title 
next  to  it  to  identify  each  line  or  bar. 

Of  course,  you  can  save  your  graph. 
You  can  recall  it  and  change  it.  You  can 
even  change  it  from  a  bar,  to  a  line,  to  a 
pie,  in  any  order  you  like.  And,  you'll  be 
running  this  program  faster  than  it  took 
to  read  this  description. 

When  you  print  outyour  color  graphs, 
you  can  choose  from  4  different  sizes. 
$149  KEYCHART 


Here's  the  ultimate  charting  presen- 
tation program.  It  can  run  circles  around 
the  DAKGraf.  Not  only  can  you  create 
regular  charts,  you  can  explode  pie  slices 
and  print  in  any  of  7  different  hatch  de- 
signs in  addition  to  the  7  colors. 

WATERLOO  TECHNICAL  SERVICES 


But  simple  Pie  Line  and  Bar  charts  are 
too  easy  for  this  program.  It's  very  easy 
to  use  and  completely  menu  driven. 

In  addition  to  being  able  to  preview 
your  graphs  on  screen,  you  can  even  edit 
yourchart'ssize,  location  oryou  name  it. 
Look  at  all  the  charts  you  can  produce. 

You  can  make  Bar  Charts,  Clustered 
Bar  Charts,  Stacked  Bar  Charts,  Hori- 
zontal BarCharts,  Line  Charts,  Combina- 
tion Bar  and  Line  Charts,  Pie  Charts, 
Multiple  Slice  Exploded  Pie  Charts,  Scat- 
ter Plots,  Combination  Line  and  Symbol 
Charts,  X-Y  Charts  (Business  &  Scien- 
tific Formats),  High-Low-Close-Open  and 
Volume  Stock  Charts,  Area  Fill  Charts, 
Regression  Analysis  Charts,  Log-Log  and 
Semi-Log  charts.  Text  Plots,  Combina- 
tion Chart  and  Text  Plots. 

All  these  charts  may  look  complicated, 
but  they  are  really  easy  to  use.  There's  a 
standard  template  menu  and  all  you  do 
is  fill  in  the  blanks. 

And  look  at  this.  You  can  import  elec- 
tronic spreadsheet  information  from  pro- 
grams such  as  Lotus®,  MultiPtan®,  Super- 
Calc®,  VisiCalc®  and  more.  So,  you  can 
fill  in  the  blanks  or  import  the  data. 
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$89^  DESKTOP  PUBLISHING 

Savtek's  Desktop  Publishing  program 
is  incredibly  easy  to  use.  It's  an  integrat- 
ed text  and  graphics  program. 

So,  you  can  combine  your  text  and 
pictures  on  the  same  page,  but  not  on 
the  same  line. 

Let  me  tell  you  about  the  paint  pro- 
gram. It  is  absolutely  a  dream  to  use.  It 
comes  with  over  100  predrawn  pic- 
tures, but  creating  your  own  is  easy. 

And,  if  you're  not  an  artist,  don't  worry. 


everything  is  automated,  it  uses  the  arrow 
keys  to  draw.  It's  very  fast  and  you'll  be 
amazed  at  how  easy  it  is  to  use. 

You  can  draw  lines  in  any  of  12  dif- 
ferent width/styles.  And,  you  can  instant- 
ly erase  them  with  the  Eraser  function. 

If  you  don't  want  a  line,  use  Haze.  It's 
like  using  a  spray  can.  It  lightly  mists  the 
area  you  move  over.  The  more  you  go 
back  over  an  area,  the  more  dense  it  be- 
comes. It's  great  for  shadows  and  fill. 

Want  a  straight  line?  Just  choose  two 
points  and  'Line'  will  do  the  rest. 

What  if  you  want  a  circle?  Just  touch 
the  return  key.  Then  use  the  diagonal 
arrow  key  to  enlarge  or  reduce  the  cir- 
cle. If  you  use  the  up/down  or  right/left 
arrows,  you'll  get  an  ellipse. 

In  the  same  way,  you  can  create  squares, 
rectangles  or  triangles.  And  you'll  be 
amazed  how  many  things,  from  houses 
to  technical  drawings,  are  made  up  of 
squares,  rectangles,  circles  and  triangles. 

Now  lets  have  some  fun.  This  pro- 
gram is  incredibly  powerful.  Let's  say 
you've  created  a  square.  You  can  pick  it 
up  and  move  it  anywhere  on  the  screen 
that  you  wish  by  using  'Move'. 

Let's  say  you  really  like  your  square. 
Use  'Copy',  and  you  can  make  as  many 
copies  as  you  like.  And  you  can  place 
each  copy  wherever  you  like.  This  is 
really  great  for  organization  charts  or  any- 
thing where  you  need  repetitive  shapes. 

But,  we're  not  even  close  to  being 
finished.  What  if  you  don't  like  the  size 
of  what  you've  drawn? 

'Vary  Size'  lets  you  enlarge  or  reduce 
any  object  on  the  screen.  You  can  even 
stretch  it  out  or  make  it  tall  and  skinny.  \ 
streched  out  a  map  of  the  United  States. 

And,there'sstill  more.  You  can  juggle 
a  drawing  on  the  screen.  You  can  turn  it 
over,  around  or  sideways. 

Finally,  you  can  Zoom  in  on  a  section 
and  operate'  on  it  pixel  by  pixel  for  infi- 
nite control  of  each  dot. 

OK,  now  for  some  thoughts  on  color. 
There  are  32  different  fill  patterns.  You 
can  see  them  in  the  main  picture  next  to 
my  map  of  the  United  States.  Each  of 
these  patterns  can  be  altered. 

You  can  create  your  own  patterns.  So, 
you  can  make  your  logo,  happy  faces  or 
you  name  it.  Whatever  you  choose,  you 
can  automatically  fill  in  any  closed  area. 

This  program  will  allowyouto  paint  in 
3  colors  at  a  time.  You  can  draw  in  black, 
blue  and  red,  or  yellow,  blue  and  red. 

You  can  also  form  patterns  that  are 
combinations  of  the  colors  for  even  more 
variation.  There's  also  a  provision  forfull 
size  and  half  size  picture  printing. 

My  favorite  part.  OK,  I'm  notthe  world's 
greatest  artist  and  I  make  mistakes  (lots 
of  them).  There's  an  UNDO  command. 
Whenever  I  mess  up,  I  just  touch  UNDO, 
and  my  last  action  is  instantly  undone. 

Finally,  there  are  1  2  font/sizes  so  that 
you  can  have  headlines,  titles  or  text  with- 
in any  of  your  drawings. 

And,  each  ofthe  12  font/sizes  can  be 
shown  on  the  screen  and  printed  nor- 
mally, in  bold,  in  italic,  in  outline,  or  in 
shadow.  Plus,  you  can  write  normally 
across  the  page,  up  the  page,  down  the 
page  or  even  upside  down. 

This  is  an  incredible  program.  And, 
don't  forget,  you  can  integrate  the  pic- 
tures into  its  sophisticated  word  pro- 
.  .  .Next  Page  Please 
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cessing  program  instantly. 

$299  GEM  DRAW  PLUS 
Now,  let's  get  really  serious.  While 
Savtek's  paint  program  is  superb,  I  think 
Gem  Draw  Plus  is  the  most  sophisticated 
drawing  program  in  the  industry. 


Its  power  is  virtually  unbelievable. 
Making  squares,  rectangles,  circles,  arcs, 

and  polygons,  are  mere  child's  play. 

Expanding,  shrinking  or  copying  ele- 
ments of  your  picture  is  accomplished 
with  the  click  of  a  mouse  (more  later). 

You  can  draw  with  up  to  16  colors 
(this  printer  will  printS  including  white). 
Each  color  is  numbered  for  use  on  non- 
color  monitors. 

And,  you  can  use  35  fill  patterns.  And 
each  can  be  used  with  any  color. 

Gem  Draw  Plus  is  object  oriented' 
rather  than  pixel  or  'screen"  oriented.  It 
understandswhatyouwantto  create,  so 
it  keeps  the  components  (It  calls  them 
'elements')  separated  in  its  memory. 

So,  for  example,  if  you  overlay  a  circle 
with  a  square,  they  mix  on  the  screen, 
but  not  in  the  memory. 

You  can  put  one  behind  the  other  and 
then  switch  them.  This  program  never 
forgets  the  objects  you're  working  with. 

If  you  design  a  house,  you  may  make  a 
toilet.  Then  you  may  make  10  copies. 
Later  you  may  wantto  make  them  smaller. 

Just  gather  them  all  together  into  a 
'group',  reduce  them,  and  then  'ungroup' 
them  and  put  them  back  wherever  you 
want.  It's  great  for  architects,  engineers 
or  designers. 

It's  particularly  strong  for  finance, 
manufacturing  and  higher  education.  Of 
course,  you  can  draw  sophisticated  pic- 
tures just  for  fun.  But,  whatever  you  draw 
will  be  technically  perfect. 

And  perfect  is  an  understatement.  Look 
at  all  the  ways  you  can  align  the  elements 
of  your  picture  with  just  the  click  of  the 
mouse.  You  can:  Put  In  Front,  Put  In  Back, 
Make  Group,  Break  Group,  Align  Left, 
Align  Center,  Align  Right,  Align  Top, 
Align  Middle,  Align  Bottom,  Page  Cen- 
ter, and  Even  Spacing,  Wow,  all  this  is 
from  just  one  pull  down  menu. 

The  Make  Group  and  Break  Group  is 
incredible.  If  you've  created  a  number  of 
parts  to  your  picture,  a  single  command 
lets  you  combine  them  so  you  can  do 
something  to  as  many  of  them  as  you've 
chosen.  Or,  you  can  separate  elements 
and  act  on  each  individually. 

The  list  of  drawing  aids  goes  on  and 
on,  including  auto-grid,  and  I  certainly 
can't  cover  them  all  here.  But  look. 

Let's  say  that  last  week  you  created  a 
drawing.  It  could  be  an  electrical  sche- 
matic, an  organization  chart,  or  a  forest 
full  of  trees.  Now  you  want  to  create  a 
new  drawing.  But,  you  want  to  pick  up' 
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some  of  the  parts  of  your  old  drawing. 

After  all,  the  best  part  of  computers  is 
that  you  never  have  to  do  the  same  work 
twice.  Well,  Gem  Draw  Plus  allows  you 
to  bring  up  two  separate  screens  at  one 
time.  So,  for  example,  you  can  have  your 
new  picture  on  the  left  and  the  old  pic- 
ture on  the  right  side  of  the  screen. 

OK,  now  it  gets  exciting.  You  can  'drag' 
an  element  from  your  old  picture  across 
the  screen  into  your  new  picture. 

Wow,  so  if  you  do  repetitive  types  of 
work,  you  can  instantly  pick  up  parts 
from  old  pictures  to  save  yourself  time. 

Of  course,  you  can  alter  the  element 
you've  moved  just  as  if  you'd  just  drawn 
it.  And,  you  can  move  something  you've 
just  drawn  back  to  the  old  picture. 

Gem  Draw  Plus  gives  you  incredible 
power.  And  its  graphics  are  especially 
compatible  with  Ventura®  Publisher, 

There  are  multiple  line  sizes  with 
choices  such  as  arrows,  straight  or  round- 
ed endings.  There  are  different  size  fonts, 
of  course.  There's  a  library  of  artwork 
and  there's  a  Shadow  Command  that 
gives  any  object  a  3-dimensional  look. 

Gem  Draw  Plus  comes  complete  with 
GEM  Desktop  which  is  a  utility  program 
that  provides  the  'Gem  Environment'. 


$119  LOGIMOUSE  PLUS  SOFTWARE 

It's  keyboard  freedom  when  you  plug 
Logitech's  C7  serial  mouse  into  your 
RS232  serial  port  I've  included  it  be- 
cause it  makes  Gem  Draw  Plus  so  easy 
to  use.  But,  you'll  use  it  all  the  time. 

Just  plug  it  into  your  serial  port  and 
get  ready  for  super  productivity.  This  is 
the  advanced  version  with  special  soft- 
ware that  really  speeds  up  your  work. 

The  Point-and-Clicksoftware  make  the 
popular  Lotus  1  -2-3  work  like  a  mouse- 
based  application.  It  fully  integrates  the 
mouse,  making  it  easier  to  create  and 
edit  spreadsheets.  With  Logimouse  and 
its  Program,  you  can  scroll  to  different 
sections  of  your  spreadsheet  and  move 
quickly  from  cell  to  cell. 

It  has  its  own  time-saving  pop  up  menus, 
which  you  can  customize  to  meet  your 
needs.  With  its  Point  Text  Editor,  you 
can  open  many  overlapping  windows  on 
the  same  or  different  files. 

You'll  find  that  a  mouse  added  to  your 
keyboard  will  make  your  work  infinitely 
easier  in  lots  of  programs. 

What  is  a  mouse?  Well,  it's  very  sim- 
ply a  smalt  device  you  move  on  your 
desk.  As  you  move  it,  it  causes  the  curser 
on  the  screen  to  move. 

It  replaces  keyboard  commands  and 
is  incredibly  fast.  It  let's  you  be  really 
productive.  When  the  curser  is  where 
you  want  it,  simply  click  (touch)  a  mouse 
button  and  your  computer  will  react. 

You  will  find  more  and  more  pro- 
grams supporting  mice  because  they 
are  incredibly  easy  to  use. 

I  think  you'll  have  a  hard  time  match- 
ing the  quality  of  the  Logimouse.  And 
when  you  add  the  Plus  Software,  I  can't 
match  the  productivity  at  any  price. 
WHY  SO  CHEAP 


This  system  will  come  to  you  in  just  a 
few  boxes.  But,  it  took  me  over  two 
months  to  assemble  the  software.  I  had 
to  work  with  5  separate  companies,  plus 
Quadram,  to  make  it  complete. 

The  problem  was  really  very  simple. 
Nobody  at  Quadram  knew  what  software 
was  availble  for  this  printer. 

So  they  were  sitting  with  4200  print- 
ers. I  bought  all  4200  for  a  song  and  put 
together  this  package. 

The  only  reason  that  the  price  is  so 
'cheap'  is  because  I  got  a  ridiculous  price 
from  Quadram.  They  are  a  large  com- 
pany with  lots  of  other  products,  and 
4200  printers  wasn't  worth  their  effort. 

From  Boston  to  Toronto  to  Silicon 
Valley,  I've  covered  this  continent  to  put 
together  this  system.  Now,  it's  easy  for 
you  to  use  because  you  get  everything. 

Of  course,  if  you  just  wanted  to  print 
text,  virtually  every  word  processing  pro- 
gram works  great.  But  you'd  be  wasting 
the  incredible  presentation  power  of  this 
remarkable  7-color  Inkjet  printer. 

If  s  backed,  as  is  each  separate  soft- 
ware package  and  the  mouse,  by  each  of 
the  6  individual  manufacturers'  standard 
limited  warranties. 

BOLD  PRESENTATIONS 
RISK  FREE 

Don't  say  it  with  words.  Demonstrate 
your  ideas  with  vivid  colors.  Show  graphs 
to  make  your  point.  Design  presenta- 
tions to  knock  the  socks  off  of  prospects. 
Or,  simply  draw  beautiful  pictures. 

If  you  aren't  1 00%  awed,  simply  return 
it  in  its  original  boxes  within  30  days  for 
a  courteous  refund. 

To  order  the  Complete  Presentation 
package  including  the  $495  Quadram  7- 
Color  Silent  InkJet  Printer,  DAK's  $49»^ 
DAKGraf,  Savtek's  $89^  Desktop  Pub- 
lishing Program,  SoftKey's  $149  Key- 
chart,  Digital  Research's  newest  $299 
Gem  Draw  Plus,  and  Logitech's  $119 
Logimouse  with  Plus  Software  for  a  total 
$1  201  ®^  retail  value,  risk  free  with  your 
credit  card,  call  toll  free  or  send  your 
check  for  just$499  ($14  P&H)  Order  No. 
4811.  CA  res  add  tax. 

Special  hookup  bonus.  Now  you  can 
switch  between  your  current  printer  and 
this  printer  instantly.  Just  unplug  the 
cable  from  your  parallel  printer  and  plug 
it  into  this  box.  Two  identical  cables  are 
supplied  that  connect  our  switching  box 
to  both  of  your  printers.  It's  just  $49'*^ 
($3  P&H).  Order  No.  4813. 

A  box  of  4  125'  rolls  of  BVz"  wide 
paper  is  $29^^  ($3  P&H)  Order  No.  4486. 

Extra  4,000,000  character  Black  Ink 
Packs  are  just$12«  ($1  P&H)  Order  No. 
4484.  Extra  3,000,000  character  Yellow/ 
Red/Blue  Ink  Packs  are  just  $14«  ($1 
P&H).  Order  No.  4485. 

You  never  get  a  second  chance  to 
make  a  good  first  impression.  With  this 
system,  every  impression  will  be  drama- 
tically bold  and  100%  professional. 

IBM  PC  &  XT  b  AL  Gem  Draw  Plus,  Keychart,  Savtek.  Quadram, 
Logitech  &  logimDuss  b  Point^nd  Click,  and  Lotus  1  -2-3  are  ragiS' 
tared  trademarks  of  Intsrnattonal  Businass  Machines,  Digital  Re- 
search, Soflkey.  Savtek,  Quadram,  LoQitw;h  and  Lotus  Oevalopmant 
Corp.  respoctivBlv- 

INDIISTfllES 
INC. 

Call  Toil  Free  For  Credit  Card  Orderis  Only 
24  Hours  A  Day  7  Days  A  Weak 

■•800-31S-0800 

For  Toll  Free  Information,  Call  6AM-5PM  Monday-Frrday  PST 

Technical  Information 1-800-272-3200 

Any  Other  Inquiries. . . 1-800-423-2866 

8200  Remmet  Ave,.  Oanoga  Park,  CA  91304 


Laser  Chess" 


Mike  Duppong 


Here's  a  game  that's  so  good  that  we 
just  had  to  share  it  with  COMPUTE! 
readers.  Laser  Chess"^'^  won  First 
Prize  in  our  $10,000  programming 
contest  for  COMPUTEI's  Atari  ST  Disk  & 
Magazine.  Awarded  $5,000  for  its  origi- 
nality and  skillful  programming,  Laser 
Chess  IS  a  two-player  strategy  game 
patterned  after  traditional  chess— 
with  some  fascinating  new  twists.  The 
original  version  was  written  in  the 
Modula-2  language  for  the  Atari  ST. 
Here  we  have  provided  BASIC  and 
machine  language  translations  for  the 
Amiga,  Commodore  64  (and  Commo- 
dore 128  in  64  mode),  Apple  H  and 
Atari  XL  and  XE.  The  Amiga  version 
requires  at  least  512K  of  memory.  At 
least  one  joystick  is  required  to  play 
the  Commodore  64  and  Atari  versions. 
The  Apple  11  version  runs  on  any 
Apple  Il-series  computer,  with  either 
DOS  3.3  or  ProDOS. 


Laser  Chess"^^,  as  the  name  implies, 
is  a  chessHke  strategy  game  for  two 
players.  The  goal  is  to  manipulate  a 
laser-firing  piece  and  various  reflec- 
tive objects  to  eliminate  your  oppo- 
nent's king.  As  in  traditional  chess, 
there  are  an  infinite  number  of 
ways  to  accomplish  this. 


Refer  to  the  special  notes  for 
your  computer;  then  type  in  and 
save  a  copy  of  the  appropriate  ver- 
sion. Be  sure  to  read  the  general 
game  rules  before  you  play. 

There  are  eight  basic  types  of 
pieces  in  Laser  Chess,  and  each  has 
unique  capabilities.  Over  time, 
you  11  learn  each  piece's  advantages 
and  limitations.  Obviously,  the 
more  you  play  Laser  Chess,  the  more 
you'll  understand  the  pieces  in  your 
arsenal  which  in  turn  will  make  you 
a  better  player.  So  let's  start  with  a 
description  of  the  pieces. 

A  Geometric  Army 

Figure  1  shows  each  piece  and  its 
name.  (The  appearance  of  game 
pieces  differs  slightly  in  some  ver- 
sions; see  the  photos  for  your  par- 
ticular computer.)  Notice  that  some 
sides  of  certain  pieces  are  highlight- 
ed with  a  different  color.  This  indi- 
cates a  reflective  surface.  When  a 
laser  beam  strikes  a  reflective  sur- 
face, it  bounces  off  without  harm- 
ing the  piece.  But  if  a  piece  is  hit  by 
a  laser  on  a  nonreflective  surface,  it 
is  destroyed. 

A  piece  can  also  be  removed 
from  the  board  if  it  is  captured  by 
an  opposing  piece.  This  is  similar  to 
traditional  chess;  to  capture  a  piece. 


Figure  1:  These  are  the  basic 

pieces  in  Laser  Chess. 
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you  simply  move  one  of  your  own 
pieces  onto  its  square. 

In  addition  to  their  ability  to 
move  from  square  to  square,  pieces 
with  reflective  surfaces  can  also  be 
rotated  in  place  in  90-degree  incre- 
ments. This  lets  you  orient  the  piece 
to  protect  it  against  opposing  laser 
shots,  or  to  set  up  bounce  shots 
with  your  own  laser. 

The  king  is  the  most  important 
piece  in  Laser  Chess.  When  the  king 
is  eliminated,  the  other  player  wins 
the  game.  Since  it  has  no  reflective 
surfaces,  it  can  be  destroyed  by  a 
laser  from  any  angle.  It  can  also  be 
captured  by  an  opposing  piece.  The 
king  is  not  totally  defenseless,  how- 
ever. It  can  capture  any  opposing 
piece  by  moving  onto  its  square. 
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But  you  can  use  it  for  a  capture  only 
once  per  turn. 

The  second  most  important 
piece  is  the  laser.  This  piece  is  your 
primary  offensive  weapon;  it's  the 
only  piece  which  can  fire  a  laser 
shot.  To  take  aim,  you  can  rotate  it 
in  place  at  90-degree  angles.  Like 
the  king,  the  laser  is  completely 
vulnerable  to  enemy  laser  strikes, 
because  it  has  no  reflective  sur- 
faces. If  you  lose  your  laser,  the 
game  is  not  over,  but  only  the  most 
skillful  (or  incredibly  lucky)  player 
can  overcome  its  loss. 

Tricky  Pieces 

The  hypercube  is  an  interesting 
piece.  It  can't  harm  an  opposing 
piece  directly,  but  may  very  well  do 
so  indirectly.  When  the  hypercube 
is  moved  onto  another  piece  (even 
your  own),  that  piece  disappears 
from  its  original  position  and  reap- 
pears on  a  randomly  selected  emp- 
ty square.  This  can  happen  only 
once  per  turn.  The  hypercube  can 
be  a  two-edged  sword;  it  may  relo- 
cate a  piece  to  a  vulnerable  posi- 
tion, or  it  may  make  it  possible  for 
the  piece  to  capture  an  important 
opposing  piece  on  the  next  move. 
The  hypercube  has  no  reflective 
surfaces  and  cannot  be  rotated.  It  is 
invulnerable  to  laser  shots,  how- 
ever, because  it's  made  of  transpar- 
ent material^ — a  laser  beam  passes 
right  through  it.  Remember  that. 

The  beam  splitter  is  another 
tricky  piece.  When  a  laser  beam 
strikes  a  splitter's  vertex  (the  point 
opposite  its  base),  the  beam  splits  in 
two.  The  two  new  beams  travel  in 
opposite  directions,  perpendicular 
to  the  original  beam's  path.  (See 
Figure  2.)  When  a  laser  shot  hits 
one  of  the  beam  splitter's  reflective 
surfaces,  it  bounces  off  at  a  90- 
degree  angle  without  splitting.  If  the 
beam  splitter's  base  is  hit  by  a  laser 
shot,  it  is  destroyed.  The  beam 
splitter  can  be  rotated. 

The  blocks  are  fairly  simple 
pieces.  However,  they  may  impose 
some  complex  situations.  A  block 
can  capture  any  opposing  piece  by 
moving  onto  that  piece's  square, 
much  like  a  king.  But  unlike  a  king, 
a  block  has  one  reflective  side  and 
can  be  rotated  as  the  situation  de- 
mands. Therefore,  blocks  can  be 
used  either  offensively  or  defen- 
sively. A  laser  beam  that  hits  the 


Figure  2:  As  seen  in  this  mag- 
nified view,  a  beam  splitter's 
vertex  reflects  a  laser  sliot  in 
two  perpendicular  directions. 


Figure  3:  This  full-screen  view 
of  Laser  Chess  shows  its  9  X 
9  board  grid  and  game 
controls. 


reflective  surface  of  a  block  is  de- 
flected 180  degrees — bouncing  the 
beam  back  v^here  it  came  from. 

A  diagonal  mirror  cannot  be  de- 
stroyed by  a  laser,  because  both  of 
its  surfaces  are  reflective.  Diagonal 
mirrors  can  be  removed  from  the 
board  only  when  captured  by  a 
block  or  a  king.  When  a  laser  beam 
strikes  a  diagonal  mirror,  the  beam 
is  deflected  90  degrees.  Diagonal 
mirrors  can  be  flipped  to  their  oppo- 
site diagonal,  but  cannot  be  rotated 
to  face  horizontally  or  vertically. 

The  horizontal  mirrors  and  ver- 
tical mirrors  (knov^n  collectively  as 
straight  mirrors)  are  also  invulnera- 
ble to  lasers  due  to  their  reflective 
surfaces.  When  a  laser  hits  a 
straight  mirror  on  its  flat  surface, 
the  beam  is  deflected  180  degrees. 
If  the  laser  hits  a  straight  mirror 
edgewise,  the  beam  passes  straight 
through  it.  (Look  closely  at  Figure 
2;  a  laser  beam  is  passing  through  a 
horizontal  mirror  just  to  the  left  of 
the  red  beam  splitter.)  Straight  mir- 
rors can  be  rotated  to  become  either 
horizontal  or  vertical  mirrors,  but 
not  diagonal  mirrors. 

The  triangular  mirrors  deflect 
laser  beams  just  as  diagonal  mirrors 
do,  but  they  are  vulnerable  to  hits 
on  their  two  nonreflective  sides.  A 
triangular  mirror  can  be  rotated  in 
90-degree  increments. 

Making  Moves 

As  in  the  conventional  game  of 
chess,  a  move  in  Laser  Chess  con- 
sists of  moving  or  otherwise  ma- 
nipulating a  game  piece.  The 
specific  notes  for  your  computer  ex- 
plain whether  a  move  is  made  by 
means  of  a  mouse  pointer,  a  joy- 
stick, or  keyboard  controls.  Every 
version  uses  a  color  change  of  some 


sort  to  indicate  whose  turn  it  is;  for 
instance,  in  the  Amiga  version,  the 
border  of  the  game  board  changes 
color  after  each  turn. 

The  same  player  always  moves 
first  in  Laser  Chess,  There's  no  par- 
ticular advantage  or  disadvantage 
to  moving  first. 

A  turn  consists  of  two  moves. 
The  number  of  moves  remaining  in 
a  turn  is  indicated  visually  on  the 
screen.  (See  Figure  3.) 

Before  you  move  or  rotate  a 
piece,  you  must  select  it.  The  in- 
structions for  your  version  explain 
how  this  is  done.  When  a  piece  is 
selected,  the  appearance  of  the 
piece  (or  the  cursor,  in  some  ver- 
sions) changes. 

If  you  accidentally  select  the 
wrong  piece,  you  can  deselect  it  by 
the  same  means  used  to  select  it,  as 
long  as  you're  still  in  the  same 
square.  Deselecting  is  usually  done 
after  rotating  a  piece — more  on  this 
in  a  moment. 

After  you've  selected  a  piece, 
your  next  decision  is  whether  to 
move  or  rotate  it.  Moving  a  distance 
of  one  square  takes  one  move;  mov- 
ing two  squares  takes  two  moves 
(although  you  can  move  a  piece 
two  squares  in  one  step).  Since  you 
have  only  two  moves  per  turn,  the 
maximum  distance  a  piece  can  be 
moved  in  one  turn  is  two  squares. 
The  computer  does  not  allow  illegal 
moves. 

Pieces  can  be  moved  forward, 
backward,  left,  or  right,  but  not  di- 
agonally. You  can  effectively  move 
a  piece  diagonally  by  using  two 
moves — ^forward  and  right,  for  in- 
stance. 

You  cannot  move  a  piece  onto 
a  square  occupied  by  another  piece. 
The  only  exceptions  are  captures 
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with  blocks  and  kings,  and  moves 
of  the  hypercube  as  described 
above. 

Rotating  A  Piece 

The  instructions  for  your  comput- 
er's version  explain  how  to  rotate  a 
piece.  The  computer  does  not  allow 
you  to  rotate  a  piece  that's  incapa- 
ble of  rotation.  Otherwise,  the  piece 
rotates  90  degrees  (one-quarter 
turn)  clockwise.  You  may  continue 
rotating  the  piece  to  any  desired 
position  before  deselecting  it.  Ro- 
tating a  piece  to  face  any  direction 
takes  only  one  move,  and  the  move 
is  subtracted  after  the  piece  is  dese- 
lected. If  you  deselect  the  piece  in 
its  original  position,  no  move  is 
subtracted. 

You  can  combine  a  rotation 
and  a  move  in  a  single  action  (ex- 
cept in  the  Atari  XL/XE  version). 
First,  select  the  piece.  Then  rotate  it 
to  the  direction  you  wish  it  to  face. 
Finally,  move  to  any  adjacent 
square  (except  a  diagonal)  as  you 
would  normally  do.  The  piece 
moves  to  that  square  and  faces  in 
the  direction  you've  chosen.  Since 
rotating  a  piece  and  moving  a  piece 
each  take  one  move,  this  uses  up 
your  turn. 

Special  Features 

At  the  center  of  the  9X9  board  is  a 
special  square  called  a  hypersqiiare. 
It  absorbs  laser  beams  and  acts  like 
a  stationary  hypercube.  That  is,  if 
you  try  to  move  a  piece  onto  it,  the 
piece  disappears  from  its  original 
position  and  reappears  on  a  ran- 
domly selected  empty  square.  This 
can  happen  only  once  per  turn, 
however. 

Along  the  board  on  the  left 
side  of  the  screen  are  some  geomet- 
ric button  shapes.  The  button  la- 
beled Q  allows  you  to  quit  playing 
at  any  time.  When  selected,  this 
option  requires  that  you  confirm 
your  decision. 

The  restart  button  (R)  lets  you 
start  a  new  game  without  finishing 
the  current  game.  (For  instance,  a 
player  may  be  so  hopelessly  behind 
that  he  or  she  wants  to  resign.) 
Again,  the  program  asks  that  you 
confirm  this  choice. 

Firing  The  Laser 

The  last  button  is  the  laser  trigger. 
When  it's  your  turn,  you  can  select 
this  button  to  fire  your  laser.  If  your 


Figure  4:  The  combination  of 
reflective  and  transparent 
surfaces  of  the  various 
pieces  can  resuit  in  complex 
bounce  patterns.  Here,  the 
red  ioser  tal<es  advantage  of 
the  green  beam  spiitter  to 
destroy  two  blocks. 


laser  piece  has  been  captured  or 
destroyed,  the  laser  button  won't 
appear  on  the  screen  during  your 
turn. 

Figure  4  illustrates  the  general 
effect  of  firing  the  laser  (some  ver- 
sions differ  slightly  in  appearance). 
Firing  your  laser  takes  only  one 
move,  but  can  be  done  only  once 
per  turn.  Therefore,  you  may  want 
to  use  your  first  move  in  a  turn  to 
aim  the  laser,  rotate  a  reflecting 
piece  to  set  up  a  bounce  shot,  or 
move  another  piece  into  position. 

Of  course,  you  won't  necessar- 
ily be  firing  the  laser  on  every  turn. 
Much  of  the  strategy  in  Laser  Chess 
involves  moving  and  rotating  your 
pieces  to  set  up  complex  shots.  It's 
important  to  realize  that  any  laser 
hit  on  a  piece's  nonreflective  or 
non transparent  surface  will  destroy 
that  piece.  You  can  destroy  your 
own  pieces  just  as  easily  as  you  can 
destroy  your  opponent's.  You  can 
even  zap  your  own  laser,  particu- 
larly if  you  fire  directly  into  the 
180-degree  reflective  surface  of  a 
straight  mirror  or  block,  or  if  you 
fail  to  anticipate  the  effects  of  a 
beam  splitter.  Be  forewarned. 

Laser  Chess  Strategy 

As  in  the  conventional  game  of 
chess,  much  of  the  strategy  in  Laser 
Chess  revolves  around  thoughtful 
placement  of  your  pieces.  However, 
the  character  of  the  game  differs 
from  that  of  chess  in  many  ways. 
The  laser,  for  example,  can  strike  at 
long  distances  and  in  more  than 
one  direction  at  once.  And  the  hy- 


percube adds  an  extra  element  of 
uncertainty.  The  best  strategy  for 
any  particular  game  depends  to  a 
great  extent  on  the  skill  and  person- 
ality of  your  opponent.  However^ 
here  are  some  general  tips  you  may 
find  helpful. 

Get  your  mirrors  out  early.  Use 
them  to  gain  the  fullest  potential  of 
your  laser.  Try  to  position  mirror 
networks  on  both  sides  of  the  beam 
splitter  so  you  can  inflict  as  much 
damage  as  possible. 

Take  advantage  of  the  blocks. 
Since  they  "control"  an  area 
around  them  with  their  threat  of 
capture,  no  other  pieces  can  safely 
move  within  their  range.  Make 
your  opponent  work  to  displace 
them.  Remember  to  rotate  the  re- 
flective side  of  a  block  to  the  most 
probable  direction  of  laser  fire.  If 
you  can  prevent  a  laser  from  de- 
stroying the  block,  your  opponent 
will  most  likely  have  to  gang  up  on 
it  with  two  or  more  of  his  or  her 
own  blocks. 

Use  mirrors  to  protect  your 
king.  If  you  surround  your  king 
with  straight  and  diagonal  mirrors, 
there  is  no  way  it  can  be  hit  by  a 
laser.  Therefore,  your  opponent 
will  have  to  break  through  your 
defense  with  blocks.  (This  is  a  pret- 
ty dirty  trick,  because  when  all  of 
your  opponent's  blocks  have  been 
used,  your  king  is  almost  invulnera- 
ble.) Defending  your  king  with 
blocks  is  also  a  good  strategy. 

The  hypercube  should  be  used 
sparingly,  since  you  have  no  idea 
where  a  relocated  piece  will  reap- 
pear. Most  players  use  the  hyper- 
cube as  a  last  resort — if  another 
piece  is  going  to  be  destroyed  any- 
way, it  doesn't  hurt  to  take  a  chance 
and  relocate  it  with  the  hypercube. 
Also,  if  your  opponent's  king  is  en- 
circled with  mirrors,  you  can  march 
right  in  with  your  hypercube,  fol- 
lowed by  a  block.  This  tactic  may 
displace  your  opponent's  defense, 
forcing  him  to  evacuate  the  king 
from  its  mirrored  fortress.  Escorting 
the  hypercube  with  an  adjacent 
block  prevents  the  opponent  from 
attacking  the  hypercube  with  his  or 
her  king%  Your  opponent's  only  op- 
tions will  be  to  flee  or  be  displaced. 

Amfga  Version 

The  Amiga  version  of  Laser  Chess 
(Program  1)  requires  512K  of  mem- 
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When  you  want  to  talk  computers. 


ATARI  COMPUTERS         COMMODORE  COMPUTERS  MS/DOS  SYSTEMS 


Atari  Computers 

800  XL  64K  Computer,., $63.99 

65XE  64K  Computer , 94.99 

130XE  132K  Computer ........129,00 

520ST  Monochrome  System...... 499.00 

520ST  Color  System..... ..749.00 


Atari  1040  .  ^     ^ 

Color  System       ^879 


^^^^^H^ 

Commodore  128  System 

Includes:  CB128  Computer, 
CB1 571  Disk  Drive,  $  7  C  A 

CB1902  Monitor  ^  f  057 

Commoclore-64C  64K  Computerl  89.00 
Commodore-64C  Sys.  w/1 802C.539.00 
Commodore-128  128K  Computer259.00 

Amiga  1000  Computer 899.00 

Amiga  500.... Call  for  pricing 

Amiga  2000 and  configuration 


Includes:  1040ST,  1  mb  RAM  with  SVa" 

drive  built-in,  192K  ROM  with  TOS.  Basic,  ^-________-____^^^^^ 

Logo,  ST  language,  power  supply  and  KKt] L^J li^j  [i]  Hi]  U  :»Cit]  a  tWil  ti 

color  monitor.  p  *  iiinifc  i  A  nTM^i  iBliUlM 


ATARI  SOFTWARE 


Access 

Leaderboard  Golf. 26.99 

Accolade 

Fight   Night...... 19.99 

Activision 

Music   Studio ....37.99 

Antic 

Cad   3'D 34.99 

Batteries  Included 

Paperclip  w/Spellpack... 39.99 

Degas  Elite 48.99 

Epyx 

World  Karate  Championship 24.99 

Infocom 

Zork   III 29.99 

Mrcroprose 

Top  Gunner ........19.99 

F-15  Strike  Eagle.. 24.99 

Origin  Systems 

Ultima  4 39.99 

Paradox 

Wanderer  (3-D).,. ............29.99 

Psygnosis 

Deep  Space 34.99 

Trmeworks 

Wordwriter  ST 51.99 

VIP 

Professional   (GEM) 144.00 


Activision 

Hacker.. 32.99 

Broderbund 

The  Print  Shop 29.99 

The  Toy  Shop ...39.99 

Commodore 

Textcraft  w/Graphic  Craft 59.99 

Assembler 79.99 

Enhancer  DOS  1.2 14.99 

Discovery  Software 

Marauder  Back-up.. 32.99 

Electronic  Arts 

Deluxe  Paint , 69.99 

Deluxe   Print..... ,74.99 

Instant  Music....................... .34.99 

Deluxe  Video... 69.99 

Infocom 

Hitchhiker's   Guide,. 31.99 

Micro  Illusions 

Dynamtc-Cad.......... 349.00 

Mindscape 

Haliey  Project 31.99 

Deja  Vu ....,..., ,,.......34.99 

Micro  Systems 

Analyze  Version  2.0. 119.00 

Scribble ....,,.. ...64.99 

On-Une/Comm .....49.99 

Sublogic 

Flight  Simulator. , .......37.99 

V.LP. 

V.I.P.  Professional..... 139,00 


AT&T  6300. from  S1299.00 

Compaq .from  1699,0 

IBM-XT from   1169.00 

IBM-AT .....from   2599.00 

Leading  Edge... .from  999.00 

NEC  Multispeed ........from  1499.00 

Panasonic  Business  Partnerfrom  799.00 
Toshiba  1100  Plus.. from  1699.00 


PC-TOO  20  Meg  ^ 
XT-Compatible     ^999 

msMmMEMS 

AST 

Six  Pak  Plus  PC/XT.... ...$169.00 

Hercules 

Color  Card ,.159.00 

Graphics  Card  Plus....... 209.00 

Fifth  Generation 

Logical  Connection  256K........... 329,00 

Quadram 

Expanded   Quadboard........ 119.00 

Video  7 

EGA  Video  Deluxe , ...389.00 

Zuckerboard 

Color  Card  w/Parallel 89.99 

Ashton-Tate 

d-Base  III  + .409.00 

5th  Generation 

Fastback  Utility ....89,99 

IMSI 

Optimouse  w/Dr.  Halo 99.99 

Lotus 

Lotus    1-2-3. 329.00 

MicroPro 

Professional  4.0  w/GL  Demo 239.00 

Microstuf 

Crosstalk  XVI 89.99 

P.F.S. 

First  Choice ....119,00 

Word  Perfect  Corp, 

Word  Perfect  4.2 209,00 


MS/DOS  SOFTWARE 


y 
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When  you  want  to  talk  price. 


MODEMS 


Anchor 

6480  C64/128  1200  Baud $119.00 

VM520  ST520/1040  1200  Baud.  129.00 
Atari 

SX212  300/1200  (ST)...„ 99.99 

Commodore 

Amiga  1680-1200  BPS.... 169.00 

CBM  1670  &0128)....... ...99.99 

Everex 

Evercom  1200  Baud  Internal 109.00 

Hayes 

Smartmodem  300  External 139.00 

Smartmodem  1200  External 389.00 

Practical  Peripherals 

1200  BPS  External 159.00 

Quadram 

Quadmodem  II  1200  Baud 299.00 

Supra 

MPP-1064  AD/AA  C64 69.99 

1200AT  1200  Baud  Atari 139.00 

U.S.  Robotics 

1200  Baud  External 129-00 


DRIVES 


MONITORS 


Amdek  410 

12"  TTL  Monitor*  149 

Amdek 

Video  31 OA  Amber  TTL ....$139.00 

Commodore 

Connmodore   1902 „.. 299.00 

Amiga  1080  Hi-Res  Color 269.00 

Magnavox 

8505  RGB/Composite .........199.00 

515  RGB/Composite 289.00 

NEC 

12"  TTL  Green  or  Amber 109.00 

JC-1401P3A  Multi-Sync 579.00 

Princeton  Graphics 

MAX-12  12"  Amber  TTL ,.169.00 

Taxan 

Model  124  12"  Amber 119.00 

Zenith 

ZVM  1220/1230... (ea.)  99.99 


Atari  1050 

SS/DD  (XL/XE)      *l39 

Atari 

AA354  SS/DD  Disk  (ST) $129.00 

SHD204  20  Meg  Hard  Drive  (ST)599.00 
Allied  Technology 

Apple  Haif-Heights .....109.00 

Commodore 

Amiga  1010  SVz"... 219.00 

Amiga  1020  5V4" ............189.00 

1541C ,.179.00 

1571..... ...,.239.00 

CS! 

10  mb  (64-128)..... ..,. 1099.00 

Indus 

GT  Disk  Drive... ....,179.00 

Mlcrobotlcs 

20  mb  Hard  Drive  (Amiga) ..1299,00 

Racore 

PC  Jr,  Expansion  Chassis. ....299,00 

Seagate 

20  MB  ST-225  Hard  Drive  Kit.... 379.00 

Supra 

20  Meg  Hard  Drive  (XUXE) 679.00 

20  Meg  Hard  Drive  (ST) 569.00 

Xebec 

20  mb  (Amiga) 899,00 

Maxell 

MD1-M  SS/DD  51/4" $9.99 

MD2-DM  DS/DD  51/4" 10,99 

MF1-DDM  SS/DD  31/2" ..12,99 

MF2-DDM  DS/DD  3V2" 21.99 

Sony 

MD1D  SS/DD  51/4" ..,..8.99 

MD2D  DS/DD  5V4" 10.99 

MFD-100  SS/DD  3V2" 13.99 

MFD-200  DS/DD  3V2" 20.99 

Hewlett-Packard  Calculators 

28C  Scientific  Pro ...199,99 

18C  Business  Consultant 139.95 

12c  Slim  Financial 74.99 


DISKETTES 


PRINTERS 


Atari 

1020  XL/XE  Plotter $29.99 

1025  XUXE  Dot  Matrix 119.00 

XDM121  Letter  Quality 209.00 

XMM801  XL/XE  Dot  Matrix 199.00 

XMM804ST  Dot  Matrix..............  189.00 

Citizen 

MSP-10  160  cps,  80-Column..., .299.00 

Premier  35  cps  Daisywheel, .499.00 

CJtoh 

8510-SP  180  cps,  80-Column Call 

310-SEP  Epson/IBM  80-Column Call 


Epson  LX-86 

120  cps  Dot  Matrix^  199 

Epson 

FX-86E  240  Cps,  80-column.. .Call 

FX-286E  240  Cps,  132-column Call 

EX-800  300  cps,  80-column 449.00 

LQ-800  180  cps,  24-Wire  PrintheadCall 
Hewlett  Packard 

Thinkjef, ..,..,... ....399,00 

Juki 

6300  40  cps  Daisywheel 659.00 

6100  10  cps  Daisywheel 389.00 

551 OC  Color  Dot  Matrix 349.00 

NEC 

Pinwriter  660  24  Wire.,.....,., 489.00 

Pin  writer  760  24  Wire 689.00 

Ok  i  data 

Okimate  20  Color  Printer 129.00 

ML-182  120  cps,  80-column...... 239.00 

ML-192-H   200  cps,  80-column. ..369.00 

Panasonic 

KX-1080i  120  cps,  80-column..., 21 9,00 

KX-1091i  180  cps,  80-column. ...299.00 

KX-1592  180  cps,  132-column.., 439.00 
Star  Micronics 

NX-10  120  cps,  80-column .209.00 

NX-IOC  120  cps,  C64  Interface. 2 19,00 

NX-15  120  cps,  132-column 369.00 

Toshiba 

P321  216cps,  24-Pin  Printhead.. 479.00 

P341  216cps,  24-Pin  Printhead.. 589. 00 


In  the  U.S.A.  and  in  Canada 

Call  toil-free:  1-800-233-8950. 

Outside  the  U.S.A.  call  717-327-9675  Telex  5106017898 

Educational,  Governmental  and  Corporate  Organizations  call  toll-free  1-800-221-4283 

CMC.  477  East  Third  Street,  Dept.  A206,  Williamsport,  PA  17701 

ALL  MAJOR  CREDIT  CARDS  ACCEPTED. 

POLICY:  Add  3%  (minimum  $7.00)  shipping  and  handling.  Larger  shipments  may  require  additional  charges.  Personal  and  company  checks  require  3  weeks 
to  dear.  For  faster  delivery  use  your  credit  card  or  send  cashier's  check  or  bank  money  order.  Pennsylvania  residents  add  6%  sales  tax.  All  prices  are  U.S.A. 
prices  and  are  subject  to  change  and  all  items  are  subject  to  availability.  Defective  software  will  be  replaced  with  the  same  item  only.  Hardware  will  be  replaced 
or  repaired  at  our  discretion  within  (he  lemis  and  limits  of  the  manufacturer's  warranty.  We  cannot  guarantee  compatibility.  AN  sales  are  final  and  returned  shipments 
are  subject  to  a  restocking  fee. 


Written  in  Microsoft  Amiga  BASIC  the 
Amiga  version  of  Laser  Chess  dupli- 
cates almost  exactly  the  original  version 
of  the  game,  which  was  written  in  the 
Modula-I  language  for  the  Atari  ST, 


The  Commodore  64  version  of  Laser 
Chess  uses  high-resolution  graphics  and 
sprites  to  good  advantage. 
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Laser  Chess  for  eight-bit  Atari  computers 
uses  a  graphics  mode  available  only  the 
Atari  XE  and  XL  models. 


The  Apple  II  version  of  Laser  Chess 
employs  keyboard  controls  and  runs  on 
any  Apple  Il-series  computer. 


ory  and  Microsoft  Amiga  BASIC.  At 
the  beginning  of  the  game,  you  can 
choose  between  filled  and  unfilled 
playing  pieces  by  pressing  F  or  U, 
respectively.  This  option  affects 
only  the  appearance  of  the  pieces. 

Amiga  Laser  Chess  is  played 
with  the  mouse,  just  like  the  origi- 
nal version  for  the  Atari  ST.  To 
move  a  piece,  position  the  mouse 
pointer  over  the  desired  piece  and 
hold  down  the  left  mouse  button. 
When  the  ghosted  image  of  that 
piece  appears,  you  can  either  drag 
the  piece  to  a  new  location  or  rotate 
it  by  pressing  a  key.  Release  the 
mouse  button  to  drop  the  piece  in 
its  new  location. 

The  color  of  the  playing-field 
border  indicates  the  number  of 
turns  remaining  and  whose  turn  it 
is.  There  are  three  buttons  to  the 
left  of  the  board.  To  select  a  button, 
move  the  mouse  pointer  over  the 
button  and  press  the  left  mouse 
button.  The  button  labeled  L  fires 
the  laser. 

Commodore  64  Version 

This  version  of  Laser  Chess  (Program 
2)  requires  at  least  one  joystick. 
Since  the  program  is  written  in  ma- 
chine language,  it  must  be  typed  in 
with  the  "MLX"  machine  language 
entry  program  printed  elsewhere  in 
this  issue.  Here  are  the  starting  and 
ending  addresses  for  MLX: 

starting  address:     0801 
Ending  address:      1BB8 

A  cursor  indicates  your  posi- 
tion on  the  board.  Use  the  joystick 
to  move  the  cursor  over  the  piece 
you  wish  to  move.  (If  you  have  only 
one  joystick,  plug  it  into  port  2.  You 
can  simulate  the  second  joystick  by 
pressing  the  left-arrow,  1,  2,  and 
CTRL  keys  to  move  the  joystick 
left,  right,  up,  and  down,  respec- 
tively, and  pressing  the  space  bar  as 
a  substitute  for  the  button.) 

To  select  a  piece,  hold  down 
the  fire  button.  To  rotate  a  piece, 
move  the  joystick  and  press  the 
button  at  the  same  time.  To  move  a 
piece,  move  the  pointer  to  the  desti- 
nation square  after  you  have  select- 
ed a  piece;  then  press  the  button  a 
second  time. 

Atari  Version 

The  Atari  version  of  Laser  Chess 
(Program  3)  works  only  on  Atari  XL 
and  XE  models,   since  it  uses  a 


graphics  mode  available  only  on 
those  computers.  The  game  begins 
by  asking  whether  you  are  using 
one  or  two  joysticks. 

To  move  a  piece,  move  the  cur- 
sor onto  the  piece,  press  the  fire 
button,  and  then  move  to  the  desti- 
nation square  and  press  the  button 
a  second  time.  The  cursor  turns  a 
darker  color  when  a  piece  has  been 
selected.  To  rotate  a  piece,  move 
the  cursor  over  the  piece  and  press 
the  button  until  the  piece  has  rotat- 
ed to  the  desired  position.  If  you 
decide  not  to  rotate  the  piece,  keep 
pressing  until  the  piece  is  not  se- 
lected any  more.  This  version  of 
Laser  Chess  does  not  allow  you  to 
combine  a  rotation  and  a  move  in 
one  action.  To  fire  the  laser,  move 
the  cursor  to  the  laser  and  press  the 
button;  then  press  L.  To  quit  the 
game,  press  System  Reset;  to  quit 
the  game  and  start  a  new  game, 
press  System  Reset  and  enter  RUN. 

Apple  II  Version 

The  Apple  version  of  Laser  Chess 
runs  on  any  Apple  II  computer,  un- 
der either  DOS  3.3  or  ProDOS.  This 
program  is  written  in  two  parts.  The 
first  part  (Program  4)  is  written  in 
BASIC.  The  second  part  (Program 
5)  is  written  in  machine  language 
and  must  be  entered  with  the 
"MLX"  program  published  else- 
where in  this  issue.  Note  that  you 
must  save  Program  5  with  the  file- 
name LASERML  because  Program  4 
attempts  to  load  the  file  with  that 
filename.  Enter  the  Program  5  ad- 
dresses as  indicated  here: 


STARTING  ADDRESS? 
ENDING  ADDRESS? 


6000 
6577 


Make  sure  that  both  Program  4 
and  Program  5  are  present  on  the 
same  disk  before  you  start  the 
game.  Run  Program  4  to  begin. 

This  version  of  Laser  Chess  re- 
lies on  keyboard  controls.  Use  the 
arrow  keys  to  move  the  cursor.  If 
you  are  using  an  Apple  II +  ,  use 
CTRL- J  to  move  the  cursor  down 
and  CTRL-K  to  move  it  up.  Press 
RETURN  to  select  and  place  pieces. 
Once  a  piece  has  been  selected,  you 
can  rotate  it  by  pressing  the  <  or  > 
keys.  The  menu  in  the  upper  left 
portion  of  the  screen  is  used  to  fire 
the  laser  or  exit  the  game.  Press  the 
ESC  key  to  enter  the  menu;  then 
move  to  the  desired  menu  selection 
with    cursor   controls.    Press    RE- 


30    COMPUtEl     June  1987 


From  the  sophisticated  realism,  detail,  and  intellectual 
stimulation  of  Fliqht  Simulator... 


Uii(«^ 


.to  the  brute-force  fun,  thrills  and  excitement  of  Jet. 


•-::^^^ 


.with  new  adventures  in  Scenery  Disks. 


■'=»,-;.'rA*«-^->i-,.- 


.SubLOGIC.  The  State  of  the  Art  in  Flight. 


'.   .'V*    ' 


See  Your  Dealer.  For  additional  product  ordering  information 


or  the  name  of  the  dealer  nearest  you,  call  (800)  637-  4983. 


Tl 


^^..n- 


LOGIC 


713  Edgebrook  Drive 
Champaign  IL  61620 

(217)  359-8482  Telex:  206995 

ORDER  UHE:  (800)  637-4983 

(except  in  Illinois,  Alaska  and  Hawaii) 
Open  7  AM  to  9  PM  Central  Time 
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Since  1981 


Lyco  Computer 

Marketing  &  Consultants 


Complete 

COMMODORE 


Complete 


•  Commodore  64  C  Computer 

•  1541  C  Drive 

•  2  Joysticks 
PLUS  •  Seikosha  SP-1000VC  Printer 


COMMODORE  64E 


System 


•  Commodore  1571  Disk  Drive 

•  Commodore  128  Computer 

•  Thompson  4120  Color 
Monitor  w/Cable 


(mouse  optional) 


®  BLUE  CHIP 


COMMODORE 


(reg.  $789) 


HARDWARE 


PERSONAL  COMPUTER 


100%  IBM 
PC/XT 

compatible! 


12SCompuler $249 

1571  Disk  Drive $229 

64  C  Compyter $175 

1541  C  Disk  Drive ...,  $185 

1902  Monitor 5285 

1802C  Monitor ..„  $189 


C-1700  128K  RAM  .,..  $109.95 

1750  RAM $169.95 

Indus  GT  C-64  Drive $105 

GEOS $CALL 

G-1351  Mouse $39 

1670  Modem $99 


Jk  ATARI  ^^°  ^^  ^^^^^  System 


»  SC  1224  Color  Monitor 
*  SF  354  Disk  Drive 
>  520  Keyboard 


(Green,  amber  &  color  monitors  available) 

COMMODORE  PC  10-1 

•  A  ready-to  use 
package  of 
computing  power 
and  versatile 
graphics! 

(1902  Monitor 
optional) 


AATARI 

HARDWARE 

SF  315  Disk  Drive $219.95 

SF  354  Disk  Drive $175.95 

1050  Drive  (XE,  XL)  ..  $139.95 
SHD  204  20  MEG  Drive  .  $589 

65XE S99 

520  ST  Mono S515 

1040  Color $879 

Indus  GT  Alan  Drive  SI  79 

130XE  Computer $119 

SX  212  Modem  ...........  SS9.95 

AATARI 

1040 

Monochrome 

System 


Lyco  offers 
90-day 
warranty 
on  all  Atari 
products 
at  no 
additional 
charge. 


Star  NP-10  Printer...$164.95 

when  purchased  with  Atari  1040  System! 


1-800-233-8760 


Lyco  Computer  is  one  of  the  oldest  and 
most  established  computer  suppliers  in 
America.  Because  we  are  dedicated  to 
satisfying  every  customer,  we  have  earned 
our  reputation  as  the  best  in  the  business. 
And,  our  six  years  of  experience  in  mail- 
order computer  sales  is  your  assurance  of 
knowledgeable  service  and  quality 
merchandise. 


The  Reliable,  Affordable  Choice 


•  120  ops  Draft  Mode 

•  24  ops  NLQ 

•  Word  Process 

•  Friction  Feed 
(2-year  warranty) 


Panasonic 

10801 


.IL 


SEiKOSHA      uiUKi     Monitors 


NP-10  .........  $169 

NX-IOC... $209 

NL-10 $209 

NX-15 $329 

NB-15  $889 

SD-10 $259 

ND-15  $425 

SR-10 $469 

NR-15 $529 

NB24-15  $729 

Panasonic 

10911 $269 

10921 $335 

1592 $399 


SP-1200Ai  ..  $195 

SP-1000AP  lie  ..  $179 
SP-1200ASRS232..,. 

.,..- $195 

SL-80Ai „  $375 

MP  1300Ai $369 

MP  5300Ai $549 

BP  5420Ai  $1075 

1300  Color  Kit  ..  $119 
BP5420Ribbon.$12.50 
SP1000Ribbon...$8.50 

1595 $499 

3131  $249 

3151  $379 

1080  AP  lie.......  $239 


5510  w/color $435 

RS232  serial  board $55 

Juki  6300 S739 

Juki  6100 S369 

LECCnD 


808  .... 
1080  .. 
13B0  ., 
1385  .. 


Versatile  and  IBM  Compatible 


NX-10 

-k  with  purchase 

of  printer 

stand 
limited  offer 
(1-year  warranty) 


C-64/C-128  Compatible 


(2-year  warranty) 


SP-1000VC 

•  1 00  cps  Draft 
Mode 

•  20  cps  NLQ/^ 

•  Direct 
Connect 
C-64/128 


.  $159 
.  $199 
.  S229 
.  5289 


(retail  S299  — save  SI  45!) 


SILVER  REED 

EXP  420P S209 

EXP  600P  ,..,.. S539 

EXP  800P S649 

OKIDATA 

Okimate  20 S129 

120  NLQ $209 

292  w  interface  .., S539 

293  w/imariace $679 

182 S245 

192+ $355 

193+ $539 

DIABLO 

D25 S499 

635 S779 

D-80  IF ,.  $1029 

Toshiba 

321  P/S ,. $479 

P341E S699 

P351  Model  II $1099 

•citizen 

120  D $179 

Premiere  35 $469 

MSP*10 $285 

MSP-15 S365 

MSP-20  ..........................  S325 

MSP-25 S485 

Tribute  224 $649 

EPsoivr 

LX  86 S209 

EX  800 S355 

EX  1000  $579 

LQ  800 ...,.,...„..,.  S449 

LQ  1000 $659 

FX  86E $369 

FX  286E $519 


Thompson: 

4120  RGB.COM  S249 

4160 $279 

Teknika: 

MJ-305 S309 

MJ-503 $529 

Zenith: 

ZVM  1220 $89 

ZVM  1230 $89 

Panasonic: 

TR- 1 22  MYP  1 2"  Am  Tn...Sl  39 

TR-122M9Pl2"GrTTL.  $139 

Commodore: 

1902  Color $285 

1602  C $169 

NEC: 

MuKisync $CALL 


Modems 


Avatex: 

1200 $89 

1200hc $119 

1200i... S99 

2400. S289 

Atari: 

XM-301 $42.95 

SX  212 589,95 

Hayes: 

Smartmodem  300 $125 

Smartmodem  1200 .,  $369 

Smartmodem  1200B $339 

Smartmodem  2400 $559 

Micromodem  Me  S125 

Smart  300  Apple  lie  $149 

Commodore: 

1670 S99 

US  Robotics: 

Password  1200  S189 

Micfolink  1200  $139 

Microlink  2400 S219 

Couner  HST  9600 S879 

CompuServe $17,95 


Connect  multiple  printers 
with  QVS  Switch  Boxes... 
starting  at  $39.95! 

Purchase  orders  accepted 
from  educational 
institutions.  Also,  ask 
about  vofume  discounts! 


We  stock  interfacing  for  Atari,  Commodore,  Apple  and  IBM. 


SOFTWARE 


m   COMMODORE   M   OOMMODOIIE    M     ||PPP>a       M 


.........  S24.95 

.,..,.,...,  SNew 

S2e.95 

.........  S32.95 

js  .,.,  S23.95 

S32.95 

S23.95 

S37.95 

S43.95 

.........  $34.95 

828,95 

........  S32,95 

$24.95 


.  $24.95 
.  $24.95 

,.  S48.95 
.  S51,75 

.  $24.95 
.  $24.95 

.  326.95 
,.  $24.95 

.  S24.95 
,.  324,95 
,.  S24.95 
,.  824.95 
,.  524.95 
.  $24.95 

.  S26.9S 

.  326.95 
.  S2B,95 
,.  327.95 
..  $25.95 

1174.95 
i1 24.95 

374.95 

,.  $18.95 
.  $24.95 

,.  354.95 
.  $79.95 


28K  ,.  $32.75 

|o  S22.75 

iner  ..  S24.75 
III  .....  $15.75 
.........  SI  8.75 

$25.75 

an S22.75 

$12.75 

,...,„.  $35.75 

S24.95 

$23.95 

.........  329.95 

324.95 

I 313.95 

.........  S13.95 

, $14.95 


WId.  CJ,  Leader  Bfd.  ...  324.95 
Activtsion; 

Aliens S24.75 

Champion.  Basketball .   $22  75 

Hacker $18.75 

Hacker  2 $20.75 

Labyrinth  ,. S22.75 

Music  Studio $22.75 

Porta] S26.95 

Tass  Times 522.75 

Titanic .  $19.95 

Mlcropro8e: 

F-15  Strike  Eagle $22,95 

Gunship $22,95 

Kennedy  Approach 319.95 

Silent  Service 522.95 

Solo  Flight  519.95 

Top  Gunner 319.95 

Mlcroleague: 

Microleag.  Baseball 324,95 

General  Manager 324.95 

Stat  Disk  ., $17,95 

'86  Team  Disk  .............  $14,95 

Microleag.  Wfeslling SNew 

Strategic  Simulations: 

Gemstone  Healer 318.95 

Gettysburg 336.95 

Kampfgruppe 536.95 

Phantaste  W  324.95 

Phanlasie  til 326.95 

Ring  of  Zelfin 524.95 

Road  War  2000 S24.95 

Shard  of  Spring  $24.95 

Wizards  Crown S24.95 

War  in  the  S.  Pacific  ...  S39.95 

Wargame  Constr S2t.95 

Battlecruiser S36.95 

Gemstone  Warrior SU.95 

Subloglc: 

Baseball  Stadium  ........  $15.95 

Flight  Simulator  II  S3t.9S 

Jet  Simulator S31.95 

Night  Mission  Pinball,..  $21.95 

Scenery  Disk $15.95 

Sublogic  Baseball  .....,.,  $31.95 

Sublogic  Football .........  S26.95 

Ejpyx: 

Create  A  Calendar  517.95 

Destroyer 524,75 

Fastload $24.75 

Football ..,. 524.75 

Karate  Champ  .............  $19.75 

Movie  Monster ,  $24.75 

Multipian 324.75 

Sub  Battle 323,95 

Winter  Games  323.95 

Super  Cycle $23.95 

Graphics  Scrapbook  ....  $14,95 
Str.  Sports  Basketball .  S24.95 
WId.'s  Great  Baseball .  $19.95 

Summer  Games  II S24.75 

Vorpot  Utility  Kit 515.75 

World  Games 524.75 

Ffrebird: 

Cotossus  IV $21.95 

Bite 519.95 

Frankie  Goes  to  Italy  ...  $19.95 

GokJen  Path $34.95 

Guild  of  Thieves  524.95 

Pawn  ..,.,. $28.95 

Seminal .,. $24.95 

Talking  Teacher $28.95 

Tracker $31.95 

Sta/glider $24.95 

Sentry $24.95 

HI  Tech  Expressions: 

Heart  Ware $6.75 

Holiday  Paper $8.95 

Card  Ware $6.75 

Party  Ware $9.75 


Unison  World: 

An  Gailery  1  or  2  ........  $15.95 

Pnnt  Master „.... 522.95 

Batteries  Included: 

Paper  Clip $26.95 

Paper  Clip  II 544.95 

Consultant  64 .„  $24.95 

Consultant  128 334.95 

CalKit .,.  S14.9S 

Datasoft: 

AIL  Real.:  The  Dungeon,.S24.95 

Black  Magic 315.95 

Saracen 315.95 

Action  Soft; 

Up  Periscope $19.95 


Elite $22,95 

The  Pawn 526.95 

Stargiider $28.95 

Unison  World: 

Art  Gallery  2  ................  $19.95 

Print  Master 525.95 

Datasoft: 

Saracen 515.95 


Access: 

Triple  Pack $14.95 

Activtsion; 

Enchanter  Trilogy 349.75 

Game  Maker  531.75 

Leather  Goddesses 525.75 

Term  Paper $35,75 

Champ.  Baseball 324.95 

Champ.  Basketball  ......  526.95 

Championship  Golf $New 

GFL  FootbaJt $24.95 

Portal  527.95 

Ml  crop  rose: 

Crusade  in  Europe  ......  $24.95 

Decision  in  Desert $24.95 

F-15  Stnke  Eagle  ........  $22.95 

Silent  Seivice  ..,.,.. S22.95 

Microleague: 

Microleag.  Baseball  .....  525,95 

General  Manager  ........  $25.95 

Stat  Disk $17.95 

'86  Team  Disk $14.95 

Broderbund: 

Airheart 322.75 

Ancient  Art  of  War  .......  525.75 

Prrnt  Shop 529.75 

Print  Shop  Comp $25.75 

Carmen  S.  Diego  (USA).  528.75 

On  Balance $62.75 

Bank  St.  Writer  +  .......  344.75 

Strategic  Simulations: 

Batllecruiser S35.95 

Battlegruppe  ................  $38.95 

Colonial  Conquest  .......  525.95 

Gettysburg , $35.95 

Phantasie  II  525.95 

Phanlasie  III $24.95 

Realms  of  Darkness  ....  $24.95 

Shard  of  Spring S25.95 

Wizards  Crown  ............  $25.95 

Sublogic: 

Flight  Simulator  II $32.95 

Jet  Simulator $26.95 

Night  Mission  Pinball  ...  522.95 
Scenery  #l-#6  ...........  569.95 

Sublogic  Baseball 531.95 

Epyx: 

Create  A  Calendar $17.95 

Destroyer $24.95 

Karate  Champ $19.95 

Movie  Monster .............  $24.95 

St,  Sports  Basketball ...  324.95 
Sub  Battle  Simulator  ...  524.95 

Winter  Games S24,95 

World  Games  324,95 

Wrestling 324.95 

Firebird: 

Colossus  IV  Chess  ......  $25.95 


Access: 

Leader  Board $24.95 

roth  Frame $24.95 

Tournament  #t 314.95 

Actlvlsion: 

Borrowed  Time $26.95 

Champ,  Basketball $28-95 

Championship  Golf $32.95 

GFL  Football $27.95 

Hacker $26,95 

Hacker  2 $29.95 

Little  People $29.95 

Mindshadow $26.95 

Music  Studio $35.95 

Tass  Times $26.95 

Strategic  Simulatfons: 

Computer  Basebali $24.95 

Kampfgruppe 534.95 

Sublogic: 

Flight  Simulator  II  ........  $32.95 

Jet  Simulator .,..„..  5CALL 

Epyx: 

Apshai  Trilogy  522.95 

Rogue $22.95 

Winter  Games  $22.95 

Firebird: 

Guild  of  Thieves  ..........  $27.95 

Pawn $26,95 

Siargllder $26.95 

Unison  World: 

Print  Master  ................  $24.95 

Art  Gallery  1  or  2  $18.95 

VIP: 

VIP  Professional St  15 

Ml  crop  rose; 

Silent  Seivtce $24.95 


Actfvlslon: 

Pebble  Beach S32.95 

Portal 328.95 

Champ.  Baseball $24.95 

Champ,  Basketball $26.95 

Ballyhoo .= $25.75 

Enchanter  Trilogy 549.75 

GFL  Football $24.95 

Lea!h»er  Goddessses  ...  525.75 

Moonmist - 525.75 

Music  Studio 532.75 

Mlcroprose: 

Contlict  in  Vietnam  $24.95 

Crusade  in  Europe 324.95 

Decision  In  Desert  .......  $24.95 

F-15  Strike  Eagle  $22.95 

Silent  Sen/ice S22.9S 

MIcroleague: 

Microleag.  Baseball  .....  325.95 

General  Manager  ........  $25.95 

Stat  Disk 517.95 

'86  Team  Disk 514.95 


Epyx: 

Apshar  Trilogy $24.75, 

Create  A  Calendar  „....  $17.9| 

Destroyer $24.7§ 

Karate  Champ $19.75 

Movie  Monster $24. 7| 

Rogue $19.7| 

St.  Sports  Sasketbalt ...  $24.95 
Sub  Battle  Simutator  ...  $24.95 

Winter  Games  .,  $24.73 

WofW  Games  $24.7^ 

Strategic  Simulations: 

Road  War  2000 $24.95 

Kampfgruppe $36.95 

Shard  of  Spring $24.95 

Battle  of  Antetiem $38.75 

Computer  Baseball $14,95 

Gettysburg 338.75 

Knights  In  Desert 525.75 

Sublogic: 

Jet  Simulator $32.95 

Scenery  Japan $15.95 

Sceneiy  San  Fran 515.95 

Scenery  #1-#6  369.95 

Sublogic  Baseball $31.95 

Sublogic  Football 331.95 

Broderbund: 

Ancient  Art  of  War 328.95 

Print  Shop 537.75 

Print  Shop  Compan. ....  $31 .75 

Graphic  Ub.  I  or  II 321.75 

Karateka $21.75 

Toy  Shop .,  $39,95 

Bank  St.  Writer  +  .,.„..  $54.95 
Unison  World: 

Art  Gallery  2 $18.95 

News  Master $55.75 

Print  Master S36.75 

Firebird: 

Stargtider $27.95 

Guild  of  Tfiieves $27,95 


Diskettes 


5-1/4       ■! 

Maxell: 

SSDD S9.99 

DSDD  $12.99 

Bonus: 

SSDD $6.99 

DSDD S7.S0 

SKC: 

SSDD $8.50 

DSDD S9.S0 

DSHD $16.95 

Verbatim: 

SSDD $9.99 

DSDD 312.99 

3.5 

3M: 

SSDD 316.99 

DSDD 323.99 

Maxell: 

SSDD $15.99 

DSDD $21.99 

Verbatim: 

SSDD  S16.99 

DSDD $24.99 

SKC: 

SSDD  $14.99 

DSDD $16.99 

Lyco  stocks  joysticks  by 
WIco,  Suncom,  Tac,  Epyx, 
and  more,  starting  as  low 
as  $5.95! 


What  Makes  Lyco  Different? 


Vickie  Blaker, 
Customer  Service 
Dept.  Manager 

Working  in  customer 
service  gives  me  and  my 
staff  the  opportunity  to 
talk  with  people  from  all 
over  the  world  who  do 
their  computer  shopping 
by  mail-order  Our  loyal 
customers  tell  us  that 
they  keep  coming  back 
to  Lyco  because  we  are 
dedicated  to  customer 
satisfaction. 


Here  Are  Some  Examples. 

Giant  inventory  and  low  prices: 

We  hate  to  disappoint  our  customers.  So,  we  keep  a 
multimillfon  dollar  inventory  of  all  the  factory-fresh 
merchandise  you  want.  This  means  we  can  give  you  the 
lowest  prices  and  the  fastest  delivery.  And,  it's  also  why  we 
fill  over  95%  of  all  our  customers'  orders  every  month! 

Prompt,  courteous  service: 

When  you  call  Lyco  to  place  an  order,  you'll  be  in  touch 
with  some  of  the  friendliest  computer  professionals  in  the 
industry.  Everyone  on  our  sales  staff  is  very  knowledgeable 
about  the  products  they  sell.  They  know  that  you  want 
courteous  and  fast  service,  and  that's  exactly  what  you'll  get 
when  you  call  Lyco.  {And  for  your  convenience,  we  even 
have  Saturday  hours!) 

Many  companies  seem  to  forget  about  customers  once  a 
saJe  is  made.  Not  Lyco.  Our  Customer  Service  Department  is 

always  here  to  help  you 
—  from  questions  about 
^S  the  status  of  an  order, 

to  warranties,  to  product 
availability  and  price. 
You'll  always  find 
friendly  service  at  Lyco 
~  before,  during,  and 
after  your  purchase. 

Fast  and  easy 
delivery: 

We  know  that  when 
you  place  an  order, 
you'd  like  to  receive  your 
shipment  as  soon  as 
possible.  At  Lyco.  we 
don't  just  say  it  —  we 
do  it.  For  instance,  orders  are  normally  shipped  within  24 
hours.  Shipping  on  prepaid  cash  orders  is  free  in  the  U.S., 
and  there  is  no  deposit  required  on  C.O.D.  orders.  Air  freight 
or  UPS  Blue  Red  Label  shipping  is  available,  too. 

TO  ORDER,  CALL  TOLL-FREE:  1-800-233-8760 
In  PA:  1-717-494-1030 

Hours:  9AM  to  8PM,  Mon,-Thurs. 
9AM  to  6PM,  Friday  -  10AM  to  6PM.  Saturday 

Or,  send  orders  to:  Lyco  Computer,  Inc.,  P.O.  Box  5088 

Jersey  Shore,  PA  17740 

For  Customer  Service,  call  1-717-494-1670, 

9AM-5PM,  Mon.-FrL 

Risk-Free  Policy:  •  full  manufacturers"  warranties  •  no  sales  lax  outside  PA 

•  prices  show  4*b  cash  discount:  add  4'd  for  crcfdit  cards  ♦  APQ,  FRO. 
international:  add  S5  plus  3%  for  priority  #  4- week  clearance  on  personal  checks 

•  we  check  for  credit  card  theft  •  compatabttity  not  guaranteed  •  return 
authorization  required  •  price. availability  subject  to  change:  call  to  confirm 


AATARI' 


Access: 

Leader  Board S24.95 

Tournament  #1 S14.95 

Tnple  Pack  ..................  S14.95 

lOth  Frame $24,95 

ActlvLsEon: 

Hacker .,.,,  S15.95 

Hitch  Hikers $22.95 

Leather  Goddesses $22.95 

Moonmtst $22.95 

Music  Studio  ..,, $22.95 

Microproser 

Conflict  in  Vietnam S24.95 

Decision  in  Desert  ..,..,.  $24.95 
F-15  Strike  Eagte  .„.,..,  S22.95 

Kennedy  Approach Si  9.95 

Silent  Service  $22.95 

Top  Gunner $19.95 

Microieague: 

Microleag.  Basebalt  ..„.  S24.95 

General  Manager $24.95 

Stat  Disk  „.. SI 7.95 

'86  Team  Disk Si 4.95 

Broderbund: 

Print  Shop  .,., S25.75 

Print  Shop  Compan, ..,.  S22.75 

Graphic  Ub.  UU II  $15.75 

Karateka $18.75 

Bank  St.  Writer S29.75 

OptEmlzed  Systems; 

Action $46.95 

Actjon  Tool  Kit  ..„„.. SI 8.95 

Basic  XE $46.95 

Basic  XL $36.95 

Basic  XL  Tool  Kit  ........  S18.95 

Mac  65 S46,95 

Mac  65  Toot  Kit  .,.......„  SI  8.95 

Strategic  Simulations: 
Battle  of  Antetiem  ........  S32.95 

Batttecfuiser  , S35.95 

Nam S24.95 

Phanlasie $24.95 

Wargame  Construe $18,95 

Warship  ., 339.95 

Wizards  Crown $24.95 

Sub]  ogle: 

Right  Simulator  It S3 1.95 

Night  Mission  Pinbal) ...  $21,95 

Scenery  Japan  SI  5,95 

Scenery  #1  -  #6  ........  S69.95 

Scenery  Disks,  each  ...  $14,95 
Epyx: 

Eidolon S22.95 

Karate  Champ Si  8.95 

Koronis  Rift S22.95 

Summer  Games $24.95 

Ffr#blrd: 

Golden  Path  S22.95 

The  Pawn S27.95 

Datasoft: 

AJt.  Real.:  The  Dungeon.. $24. 95 

Gunstinger SI 9.95 

22t  B  Baker  St $19.95 


mi 

Leader  Board  $24.95 

Tournament  #1 $13.96 

10th  Frame ,  S24.95 

Act)  vision: 

Ballyhoo $23.95 

Borrowed  Time $32.95 

Champion.  Baseball  ....  S29.95 
Champion.  Basketball .  S28.95 
Championship  Golf SNew 


GR  Football  .... 
Game  Maker  .... 

Hacker 

Hacker  2 

Leather  Goddess 

Little  People 

Moonmlst 

Music  Studio 

Paint  Works 

Portal 

Shanghai  

Tass  Times  ....... 

Bureaucracy  ..... 


VIP: 

Accounts 

VIP  Professional 
VIP  Professional 
Unison  World: 
Art  Gallery  1  or  J 
Print  Master ...... 

Zoom:  : 

Zoomracks  ...<.,.; 
Zoomracks  fl  .... 


Access: 

Leader  Board  „ 

Mach  5  

Mach  "  128  

10th  Frame 

Exec.  Toumame 
Tournament  #  1 
Triple  Pack 


TURN  to  select  an  item  from  this 
menu. 

For  instructions  on  entering  these  programs, 
please  refer  to  "COMPUTErs  Guide  to  Typing 
in  Programs"  elsewhere  in  this  issue- 

Program  1r  Amiga  Laser 
Chess 

Version  by  Tim  Midkiff,  Editorial 
Programmer 

'Laser  Chess-* 

'Copyright  1987  Compute  1  Pubiica 

tions,  Inc.^ 

'All  Rights  Reserved-* 

CLEAR,  25000:  CLEAR  ,50000&-* 

DEFINT  a-z:DEFSNG  r , g , b, mx ; RANDO 

MIZE  TIMER:SCREEN  1,320,200,4,1* 

WINDOW  3w (0,0)-{ 311, 186), 16,1 :W 

INDOW  OUTPUT  3:  COLOR  ,0-* 

DIM  sn(8,3,l,l) ,es( 155,1) , shape ( 

155, 87), piece (9, 9) , orient (9, 9) ,c 

Lr(9,9)-* 

DIM  os(155),beamck(3,9,9) ,dircH( 

8,3,3), bmd0 1 158 ) , bmdl ( 22 ) , shpt { 8 

)^ 

DIM  ddrcx{l,20),ddrcy(l,20) ,pt(l 

4)-* 

DIM  8(255), n(255),sq(255),freq{2 

0,4)  ,shptx(8,19)  ,shpty(8,19)-* 

LOCATE  1,4: PRINT  CHR$ ( 169 )" 1987 

Compute  1  Publications,  Inc."* 

LOCATE  3, 11: PRINT" All  Rights  Res 

erved"* 

LOCATE  12,9sPRINT"(F)illed  or  (U 

)nfilled?"'* 

WHILE  NOT(k$  =  "F"  OR  k$="U"  )  ;lq$=U 

CASE? ( INKEY$ ) iWEND: fL=k?-"F"* 

PALETTE  0, as, .05, .5:PALETTE  1,. 

15,  .25,  .95-t 

FOR  i^2  TO  14:PALETTE  i,.15,*05, 

.5 :NEXT: PALETTE  15, .15, .25, .95* 

ON  TIMER(l)  GOSUB  CLock: tX-36-f L 

*i0* 

COLOR  1 , 0 : CLS : LOCATE  10, 14: PRINT 

"PLEASE   WAIT"* 

LOCATE  12, 18: PRINT  " seconds" :TIM 

ER  ON* 

FOR  i=0  TO  255:s(i)=127-i:NEXT:F 

OR  i=0  TO  255:n(i)-127-RND*255:N 

EXT: WAVE  0,s* 

FOR  i-0  TO  127:sq{i)=l27-RHD*50: 

NEXT: FOR  i=128  TO  255 : sq( i ) =-128 

+RND*50:NEXT* 

cop(l)=4:Gopt2)-6:G0SUB  InitSbap 

es:GOSUB  InitOb jects :TIMER  OFF:C 

LS* 

RESTORE  PaLetteDataiFOR  i=2  TO  1 

4:READ  r , g , b : PALETTE  i,r,g,b:NEX 

T* 

PaLetteData:  * 

DATA  0,0,0,  .3,  .3,  .3* 

DATA  .6,0,0, 1,0,0,0, .55,0,0, .9,0 

-4 

DATA  1,1, 0,1, 1,01.6, .6, .6, 1,1,1* 

DATA  1,1,0,1,1,0,1,1,0* 

Start:* 

L(i)=-l:L(2)  =  l:Lpx{l)=4:Lpy(l)=l: 

Lpx(2)=6:Lpy(2)=9* 

COLOR  ,0;GOSUB  DrawBoard :k=0 ;pL= 

1* 

Main:* 

pL=pL  XOR  3 :px=5 :py=5 :move=2 ;hyc 

ube=0 :hysq=0 :taken=0 : fired-1* 

LINE(40,10)-C288,186) ,cop(pL) ,b: 

LINE(42, 12)-(286,184) ,cop(pL),b* 

MovePiece:* 

WHILE  MOUSE(0)>-l:WENDiX=MOUSE(3 

) :y=M0USE{4)* 

px=INT( (x-17)/27) :py=INT({y+6)/l 

9)  iinoves=0* 


IF  NOT{{px>0  AND  px<10)  AND  (py> 

0  AND  py<10))  THEN  Options* 

IF  cLr(px,py)<>pL  THEN  MovePiece 

piece=piece(px,py) :rot-orient (px 

,py)* 

obindex=oi { piece , rot ) : spx=px : spy 

^py* 

IF  NOT(obindex>0)  THEN  MovePiece 

■* 

OBJECT. X  obindex,x-14: OBJECT. Y  o 

bindex,y-10 ; OBJECT. ON  obindex 

WHILE  MOUSE(0)<0* 

OBJECT. X  obindex, M0USE{1) -14 :OBJ 

ECT.Y  obindex, MOUSE(2)-10* 

IF  INKEY^o""  THEN* 

rot=(rot+l)  AND  turnsCpiece) : j=o 

bindex : obindex=oi ( piece , rot ) * 

OBJECT. X  obindex, M0USE(1)-14:0BJ 

ECT.Y  Obindex, MOUSE(2)-10* 

OBJECT. OFF  jiWAVE  0,s: SOUND  4000 

, .1,255, 0tOBJECT. ON  obindex* 

END  IF  * 

WEND* 

OBJECT. OFF  obindex* 

GOSUB  EraseSquare* 

px=INT( (MOUSE(5)-17)/27) :py=INT( 

(M0USE(6)+6)/l9)* 

GOSUB  CheckMove* 

GOSUB  PutShape* 

IF  piece(px,py)=2  THEN  Lpx(pL)=p 

x:Lpy(pL)=py* 

EndMove:IF  k  THEN  EndGame* 

move=move-moves; IF  move=l  THEN  L 

INE ( 40 , 10 ) - { 286 , 186 ) , 0 , b* 

IF  move>0  THEN  MovePiece* 

GOTO  Main* 

-* 

CLock: ti=ti-l : LOCATE  12,14: PRINT 

STR?(ti)"  ": RETURN* 

I nit Shapes i* 

LINE(0,0)-(0,0) ,10,bf :GET(0,0)-{ 
0,0),pt:PUT{0,0) ,pt* 
LINE(0,0)^(0, 18) ,10:GET(0,0)-(0, 
18)  ,bind0:PUT(0,0)  ,bmd0* 
uINE(0,0)-(26,0),I0:GET(0,0)-(26 
,0) , bmdl :PUT( 0,0), bmdl* 
LINE(0,0)-{28,18),2,bf :GET(0,0)- 
(26,18),es{0,0)* 

LINE (0,0)-(26,18),3,bf: GET (0,0)- 
(26, 18), 63(0,1)* 

RESTORE  LaserDir:FOR  i=0  TO  3 : RE 
AD  dirx(i) ,diry(i) :NEXT* 
LaserDir:DATA  0,-1,1,0,0,1,-1,0* 
RESTORE  ShapePts* 

k=0:x=0:y=0:FOR  i=l  TO  8 : READ  tu 
rns(i),shpt(i)* 

FOR  j=0  TO  Shpt(i)+1:READ  shptxC 
i, j) ,shpty(i, j) :NEXT* 
GOSUB  GetShapeS:NEXT* 
RESTORE  ShapeRefLect* 
FOR  i=l  TO  8; FOR  j=0  TO  turns(i) 
:FOR  k=0  TO  3: READ  dirck ( i , j , k ) : 
NEXT  k,j,i* 
RETURN* 
ShapePts :* 

DATA  1,1,-1,17,17,1,0,0* 
DATA  3,6,7,17,9,1,11,17,7,17,1,1 
5,17,15,11,17,9,9* 
DATA  1,1,-1,9,17,9,0,0* 
DATA  0,7,5,9,9,5,13,9,9,13,5,9,1 
3,9,9,13,9,5,0,0* 

DATA  3,6,1,2,17,2,17,17,1,17,1,2 
,-1,1,17,1,9,9* 

DATA  0,4,1,1,17,1,17,17,1,17,1,1 
,0,0* 

DATA  3,6,2,1,16,1,9,8,2,1,-1,1,- 
9,9,17,1,9,4* 

DATA  3,5,2,17,17,17,17,2,2,17,-1 
,17,17,1,13,13* 
ShapeRefLect : * 

DATA  1,0,3,2,3,2,1,0,-1,-1,-1,-1 
,-1,-1,-1,-1* 


DATA  -1,-1,-1,-1,-1,-1,-1,-1,2,1 

,0,3,0,3,2,1* 

DATA  -1,-1,-1,-1,-1,-1,0,-1,-1,- 

1,-1,1,2,-1,-1,-1* 

DATA  -1,3,-1,-1,0,1,2,3,-2,2,-1, 

2,3,-2,3,-i* 

DATA  -1,0,-2,0,1,-1,1,-2,-1,0,3, 

-1,-1,-1,1,0* 

DATA  1,-1,-1,2,3,2,-1,-1* 

GetShapes:* 

FOR  angLe=0  TO  turns(i):FOR  bkgd 

=0  TO  1:F0R  pL=l  TO  2* 

co-cop (pL) : PUT (0,0) ,es(0,bkgd) ,P 

SET* 

ON  angLe+1  GOSUB  rotate0,rotate9 

0, rotatel80 , rotate270* 

sn ( i , angLe , pL- 1 , bkgd ) =k : GET (0,0) 

-(26,18) ,shape(0,k) :k=k+l* 

NEXT  pL, bkgd, angLe: RETURN* 

rotate©:* 

FOR  j=l  TO  shpt(i):IF  shptx(i,j- 

1)<0  THEN  hue=co+l  ELSE  hue=co* 

LINE(ABS(shptx(i, j-1) )+4+x,3hpty 

(i, j-l)+y)-(ABS(shptx{i, j) )+4+x, 

shpty(i, j)+y) , hue: NEXT* 

IF  shptx(i,shpt(i)+l)>0  AND  fL  T 

HEN  PAINT(shptx(i,shpt(i)+l)+4+x 

, shpty( i, shpt( i)+l)+y) ,co, co* 

RETURN* 

rotate90;* 

FOR  j=l  TO  Shpt (i): IF  shptx(i,j- 

1)<0  THEN  hue=co+l  ELSE  hue=CO* 

LINE(18-shpty(i, j-l)+4+x,ABS(shp 

tx(i, j-1) )+y)-(l8-shpty(i, j)+4+x 

,ABS(shptx(i, j) )+y) , hue: NEXT* 

IF  shptx(i,shpt(i)+l)>0  AND  fL  T 

HEN  PAINT(18-shpty(i,shpt(i)+l)+ 

4+x,shptx( i, shpt( i)+l )+y) , co, co* 

RETURN* 

rotatel80:* 

FOR  j=l  TO  shpt (i): IF  shptx(i,j- 

I)<0  THEN  hue=co+l  ELSE  hue=co* 

LINE(  18-ABS(shptx(i,  j-1  )  )'t-4-Hx,  18 

-shptyti, j-l)+y)-(18-ABS(shptx(i 

, j ) ) +4+X , 18-shpty ( i , j ) +y ) , hue : NE 

XT* 

IF  shptxCi,shpt(i)+l)>0  AND  fL  T 

HEN  PAINT ( IS-shptx ( i , shpt { i ) +1 ) + 

4+x, 18-shpty{i,shpt(i)+l)+y) ,co, 

CO* 

RETURN* 

rotate270 :* 

FOR  j=^l  TO  shpt(i):IF  shptx(i,j- 

1)<0  THEN  hue=co+l  ELSE  hue=co* 

LINE(shpty(i, j-l)+4+x, 18-ABS(3hp 

tx(i,  j-1)  )+y)-(shpty(i,  j)+4-i"X,  13 

-ABS(shptx(i,  j)  )+y),  hue:  NEXT* 

IF  shptx(i,shpt(i)+l)>0  AND  fL  T 

HEN  PAINT ( shpty( i, shpt ( i )+l )+4+x 

, ia-shptx(i, shpt(i)+l)+y) ,co,co* 

RETURN* 

■* 

InitOb jects :* 

k^l:si$^STRING$(26,0) : POKE  SADD( 

si$)+ll,4:P0KE  SADD(si$)+15,27* 

POKE  SADD(si$)+19,19:P0KE  SADD(s 

i$) +21, 24: POKE  SADD(3i$)+23, 15* 

FOR  piece-1  TO  8: FOR  angLe-0  TO 

turns ( piece ) : seLect=sn( piece , ang 

Le,0,0)* 

PUT ( 0 , 0 ) , es ( 0 , 0 ) , PSET : PUT ( 0 ,  0 )  ,  s 

hape(0, seLect)* 

oi ( piece, angLe )=k:GET{0,0)-( 26, 1 

8) ,os* 

sd$-"":FOR  i=3  TO  154 : sd$=sd?+MK 

I?(os(i) ) ;NEXT* 

OBJECT. SHAPE  k, si$+sd$ : OBJECT . PL 

ANES  k,3,8* 

k=k+l:NEXT    angLe , piece : RETURN* 

DrawBoard:* 

COLOR    3,2:LINE(11,54)-STEP(16,11 

) , , b : PAINT (12, 55), 2, 3: LOCATE    8 , 3 
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:PRINT"Q"** 

LINE(11,94)-STEP(16,10) , ,b: PAINT 
(12,95) ,2, 3: LOCATE    13 , 3 ; PRINT"R" 

LINE(11,134)-STEP(16,10) ,,b:PAIN 

T(12,135),2,3: LOCATE  18,3: PRINT" 

L'*  ^ 

FOR  py=l  TO  9: FOR  px=l  TO  9:G0SU 

B  EraseSquareiNEXT  px^py-t 

LINE  (1  5 1 ,  89  )  -  ( 1  77  , 1 07  }  ,  0 ,  bf -t 

RESTORE  ShapePostFOR  py-l  TO  2:F 

OR  px=l  TO  9:cLrCpx,py)=l:cLr(px 

,py+7)^2^ 

READ  piece{px,py) , orient (px,py) , 

orient  { 10-px,  lU-py}-* 

piece ( 10-px, 10-py)=piece(px, py) : 

NEXT  px^py* 

FOR  px=l  TO  9: FOR  py^l  TO  9: IF  p 

iece(px,py)>0  THEN  GOSUB  PutShap 

e^ 

NEXT  py,px-* 

ShapePos  :•* 

DATA  8,2,0,8,2,0, 1,1,1,2,2,0,4,0 

,0,6,0,0-t 

DATA  1,0,0,8,3,1,8,3,1,8,3,1,5,2 

,0,5,2,0-t 

DATA  7,2,0,3,0,0,3,1,1,5,2,0,5,2 

,0,8,2,0-* 

RETURN-* 

PutShapet-* 

xspx*27  +  16:y=py*19-6:blcgd=(px+py 

+  1  )  AND  1-* 

PUT( x,y ) , shape(0, sn(piece(px,py ) 

, orient (px, py) , cLr (px, py)-l ,bkgc 

)  )  ,PSET'* 

RETURN-* 

EraseSquare:-* 

x=px* 27+16 :y=py* 19-6 :bkgd=(px+py 
+1)  AND  l:PUT(x,y),es(0,bkgd) ,PS 

RETURN* 

Fire:-* 

px=Lpx ( pL )  : py-Lpy  t  pL ) : Lx ( 1 ) =px ; L 

y  ( 1  )=py  ;dir(  1  )=orient(px,  py*)-* 

FOR  i=l  TO  3;aLive(i)=0:term(i)= 

0:NEXT:aLive(  !)=!-* 

WHILE  (aLive(l)-I)  OR  (aLive(2)= 

I)  OR  {aLive(  3  )=!)-* 

FOR  i=l  TO  3tIF  aLive(i)<l  THEN 

AdvBeam< 

nLx( i}=Lx(i)+dirx{dir(i) ) ;nLy(i) 

^Ly(i)+diry(dir(i)  )-« 

IF  beamck(dir(i) ,Lx(i),Ly(i) )=1 

THEN  EndBeam* 

beamGk{dir(i) ,Lx(i),Ly{i) )=1:G0T 

O  DrawBeam-* 

Hit:terra(i)=l:drk(i)=tdir:IF  d  T 

HEN  EndBeam* 

tx=px : ty=py:px^Lx{ i) :py=Ly ( i) : IF 

piece(px, py)=4  THEN  k=k+cLr(px,p 

IF  piece(px,py)=2  THEN  L(cLr(px, 

py)  }=0-* 

x=px* 27  +  16  :y=py*  19-6-* 

m=piece(px , py ) : shpt (0)-shpt (m) sF 

OR  3=0  TO  shpt ( 0 }+l: shpt x{0,j)=S 

hptx(m,  j  )-* 

shpty(0, j)=shpty(m, j) : :NEXT:t=i: 

i=0:co=8-^ 

ON  orient {px,py}+l  GOSUB  rotate0 

,rotate90,  rotatel80,  rotate270-* 

i=t :  px=tx  :  py^ty-* 

EndBeam:  aLive(  i)=-l-* 

AdvBeam  t  NEXT  :  WEND-* 

RETURN-* 

DrawBeam:-* 

x=Lx  (  i  )  *  2  7+29  :  y=Ly  (  i  )  *  19+3-* 

ON  dir(i)  GOTO  BRt,3Dn,BLt* 

aup:PUT{x,y-19) ,bmd0:GOTO  CkBeam 

BRt:PUT(x,y+l) ,bmdl:GOTO  CkBeam^ 


BDn:PUT(x+i,y)  ,bnid0:GOTO  CkBeam-* 
BLt:PUT(x-27,y) ,bmdl:GOTO  CkBeam 


CkBeam:-* 

IF  (nLx(i)>9)  OR  (nLy(i)>9)  OR  ( 

nLx(i)<l)  OR  (nLy(i)<l)  THEN  End 

Beam'* 

IF  nLx(i)=S  AND  nLy(i)=5  THEN  En 

dBeam-* 

Lx(i)^nLx(i) ;Ly(i)=nLyCi) ;IF  pie 

ce(nLx{i) ,nLy(i})=0  THEN  AdvBeam 

-* 

tdir=dir(i)  :dir  (  i)  =dirGk(  piece {L 

x{i),Ly{i) ) ,orient(Lx(i} ,Ly(i)) , 

dir{i})^ 

IF  dir(i)=-l  THEN  Hit-* 

IF  dir(i)>-2  THEN  AdvBeam-* 

IF  aLive(2)=0  THEN  j  =  2  ELSE  3=3-* 

aLive  (  j  )  =^1  :  Lx  (  j  )  =Lx  {  i )  :  Ly  (  j  )  =Ly  ( 

i)^ 

dir(i)=tdir+l  AND  3 :dir( j )=tdir- 

1  AND  3-* 

GOTO  AdvBeam-* 

•« 

Laser:-* 

k=0:d^0:GOSUB  Fire-* 

FOR  i=0  TO  3: FOR  x=l  TO  9 : FOR  y= 

1  TO  9:beamck{i,x,y)=0:NEXT  y,x, 

i-* 

FOR  i=l  TO  3-* 

IF  term(i)=l  THEN-* 

IF  piece(Lx(i),Ly(i}  )>0  THEN-* 

tx=px : ty=py : px^Lx ( i ) ; py=Ly ( i ) : GO 

SUB  ExpLode:px=tX:py=ty« 

END  IF-* 

END  IF-* 

NEXT-* 

TIMER  OFF:d"i:GOSUB  Fire-* 

FOR  i=l  TO  3-* 

IF  termCi)  =  l  THEN-* 

IF  piece{Lx(i)  ,Ly(i)  )>0  THEN-* 

tx=px:ty=py:px=Lx(i) :py^Ly(i) :pi 

ece  ( px ,  py )  =0 :  cLr  ( px ,  py )  =0-* 

GOSUB  EraseSquare:px=tX:py=ty-* 

END  IF-* 

END  IF-* 

NEXT-* 

FOR  i=0  TO  3: FOR  x-1  TO  9: FOR  y= 

1  TO  9:beamck(i,x,y)=0:NEXT  y,x, 

i-* 

RETURN-* 

ExpLode;-* 

FOR  j-0  TO  4:vol{4-j)-( j+l)*40!N 

EXT :  ch^0'* 

FOR  j=0  TO  20:t=900-INT{RND*8)*l 

00:  FOR  m=^0  TO  4  ;  f  req{  j  ,  m)  ^t  :  NEXT 

m,  j-* 

Lv=l 20 ;Gx^px* 27+29 :cy=py*l 9+3 :WA 

VE  0,n:WAVE  1 ,  n-* 

IF  dirx(drk(i))=0  THEN-* 

FOR    3=0    TO    20:ddrcy(0, j)=INT{RND 

*10)*diry(drk(i))+cy-* 

ddrcx(0,  j)=cx+10-INT(RND*20)-* 

ddrcy( 1 , j )=INT( RND*20)*diry{drk( 

i) )+cy* 

ddrcx (1 , j ) =CX+20-INT{ RND*40 ) : NEX 

ELSE-* 

FOR  j=0  TO  20 : ddrcx ( 0, j)=INT(RND 

*10)*dirx(drk{i)  )+cx-* 

ddrcy(0,  j  )=cy+10-INT{  RND*20)-* 

ddrcxU,  3HlNT(RND*20)*dirx(drk( 

i)  )+cx'* 

ddrcyd,  j  )  =cy+20-INT(RND*40)  :NEX 

T-* 

END  IF-* 

GOSUB  EraseSquare-* 

FOR  j=0  TO  20:PUT(ddrcx(0, j) ,ddr 

cy(0, j) ) ,pt:IF  (j  AND  4) =4  THEN 

GOSUB  ExpSnd-* 

NEXT-* 

FOR  j=0  TO  20:PUT(ddrcx(0, j) ,ddr 

cy(0, j) ) ,pt:PUT(ddrcx(l, j) ,ddrcy 


(i,  j)),pt-* 

IF  (j  AND  4) =4  THEN  GOSUB  ExpSnd 

NEXT: FOR  3=0  TO  20 :PUT(ddrcx( 1 , j 

)  ,  ddrcy  (  i  ,  j  )  )  ,  pt :  NEXT-* 

RETURN-* 

ExpSnd:* 

ch=l-ch:FOR  m=0  TO  4: SOUND  freq( 

j,m},  .05,vol(m)  ,  ch  :  NEXT  :  RETU  RN-* 


CheckMove:-* 

dx=ABSCpx-spx)  :dy=ABS(py-3py)-* 

moves~dx+dy+ABS (  rot  <>orient  (  spx , 

spy)  )-* 

IF  dx=0  AND  dy=0  THEN  VaLidMove-* 

IF  NOT(px>0  AND  px<10  AND  py>0  A 

ND  py<10)  THEN  laVaLidMove-* 

IF  moves > move  THEN  InVaLidMove-* 

IF  moves=2  THEN-* 

midx=(  px+spx)  /2  tmidy=(py+spy  )  /2-* 

IF  midx=5  AND  midy=^5  THEN  InVaLi 

dMove-* 

IF  dx=2  THEN  IF  piece (midx , py) <> 

0  THEN  InVaLidMove-* 

IF  dy=2  THEN  IF  piece ( px , midy) <> 

0  THEN  InVaLidMove-* 

IF   dx=l  AND  dy^l  THEN-* 

IF  { (piece(px, spy) <>0)  OR  Cpx=5 

AND  spy=5))  AND  (( piece ( spx , py) < 

>0)  OR  (spx=5  AND  py^5))  THEN  In 

VaLidMove-* 

END  IF-* 

END  IF   -* 

IF  piece(px,py)  <>0  THEN-* 

IF  pitice=4  OR  piece-5  THEN-* 

IF  taken  THEN  InVaLidMove-* 

IF   piece(px, py)=4    THEN   k=cLr(px, 

IF   piece(px,py)=2    THEN   L(cLr(px, 

py)  )=0-* 

V-JAVE    0,n:WAVE    1 ,  n-* 

FOR  i=255  TO  10  STEP  -20: SOUND  4 

00  ,  .  1 ,  i  ,  0  :  SOUND  400  ,  ,  1 ,  i  ,  1  :  NEXT-* 

taken-l:GOTO  VaLidMove-* 

ELSEIF  piece=6  THEN-* 

IF  hycube  THEN  InVaLidMove-* 

hycube=l  :GOTO  HyperCube-* 

ELSE-* 

GOTO  InVaLidMove-* 

END  IF-* 

END  IF-* 

IF  K-0T{px=5  AND  py=5)  THEN  VaLid 

Move-* 

IF  hysq  THEN  InVaLidMove-* 

WHILE  (px=5  AND  py-5)  OR  piece (p 

X,  py)  O0'* 

px==lNT(RND*9+l)  :py=INT(RND*9  +  l)'* 

WEND-* 

WAVE  0,n:FOR  i=250  TO  0  STEP  -2: 

SOUND  100+i*2, .03, i,0: NEXT: WAVE 

l,n-* 

GOSUB  VaLidMove: FOR  i=0  TO  250  S 

TEP  2:S0UND  100+500-1*2 ,. 03 , i , 1 ; 

NEXT-* 

hysq=l:G0SUB  PutShape-* 

RETURN-* 

HyperCube  : -* 

nx^INT(  RND*9+1 )  :  ny=INT(  RND*9+1  ) -* 

IF  (nx=5  AND  ny=5)  OR  piece(nx,n 

y)<>0  THEN  HyperCube-* 

WAVE  0,n:FOR  i=250  TO  0  STEP  -2: 

SOUND  100+i*2, .03,1,0: NEXT :UAVE 

l,n-6 

piece (nx,ny)=piece( px,py) : orient 

( nx , ny ) =or lent ( px , py ) : cLr ( nx , ny ) 

=cLr(px,py)-* 

GOSUB  VaLidMove:  FOR  i=^3  TO  250  S 

TEP  2: SOUND  100+500-1*2 ,  .03 , i , 1  : 

NEXT-* 

GOSUB  PutShape;piece(spx,spy)^0: 

cLr ( spx, spy)-0:px=nx:py=ny^ 

RETURN-* 
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VaLidMove:-* 

piece (px, py) apiece : orient Cpx,py) 

=  rot :  cLr  (  px  ,  py )  =GLr  (  spx  ,  spy )  -* 

IF  dx>0  OR  dy>0  THEN  piece ( spx, s 

py )  =0 :  cLr  (  spx ,  spy )  =0-* 

RETURN-* 

InVaLidMove:-* 

px=spx:py=spy  :moves=0  :  RETURN-* 

Confirm:-* 

WINDOW  2, , (114,82)-(216,105),0,1 
: WINDOW  OUTPUT  2;PRINT"Are  you  s 
are?"'* 

COLOR  3,2:LINE(27,L4)-STEP(16,I0 
) , ,b:PAINT(28,L5) ,2,3:LOCATE  3,5 
:PRINT"Y"'« 

LINE(59, I4)-STEP{16,10), ,b:PAINT 
( 68 , 1 5 ) , 2 , 3 : LOCATE  3,9; PRINT"N"^ 
CkCon : WHI LE  MOUSE ( 0 ) > - 1 : WEND : X=M 
OUSE (3 ) : y=MOUSE ( 4 } : co=POINT ( x , y ) 

IF  N0T(co=2  OR  co-3)  THEN  CkCon-* 

IF  x>27  AND  x<43  THEN-* 

c=I4 

ELSEIF  X>59  AND  x<75  THEN-* 

c=0-* 

ELSE-* 

GOTO  CXCon<* 

END  IF-* 

WINDOW  CLOSE  2: WHILE  MOUSE(0)<>0 

; WEND:  RETURN-* 

Options:-* 

co=POINT(  x,y)  :moves=0-* 

IF  N0T(co=2  OR  co=3)  THEN  MovePi 

ece** 

IF  y>133  AND  y<145  AND  fired  AND 

L(pL)  THEN-* 

fired=0: PALETTE  10 , 1 , 1 , 0 : PALETTE 

15,1,1,0-* 

WAVE  2,sq:WAVE  3,sq:0N  TIMER( 1) 

GOSUB  LSnd:Lv=200:GOSUB  LSnd:TIM 

ER  ON-* 

GOSUB  Laser  :n!Ovea=i'* 

PALETTE  10, ,6, .6, .6jPALETTE  15,. 

15,  .25,  .95-* 

ELSEIF  y>93  AND  y<105  THEN-* 

GOSUB  Confirm:  IF  c  THEN  Restart-* 

ELSEIF  y>53  AND  y<66  THEN^ 

GOSUB  Confirm: IF  C  THEN  SCREEN  C 

LOSE  1; WINDOW  CLOSE  3: CLEAR, 2500 

0:END-* 

END  IF-* 

GOTO  EndMove-* 

LSnd: SOUND  120 , 18 . 2 , Lv, 2 : SOUND  1 

21 ,  18  .  2  ,  Lv,  3  :  RETURN-* 

A 

Border tLINE( 40, 10)- (288, 186), ,b: 

LINE(42,12)-(286,184),  ,b:  RETURN-* 

4 

Restart;-* 

COLOR  ,0:CLS:FOR  i=l  TO  9; FOR  j= 

1  TO  9:piece(i, j)=0:cLr(i, j)=0;N 

EXT  j,i-* 

GOTO  Start-* 

EGOpt:-* 

co=POINT(x,y)-* 

IF  CO=2  OR  CO=3  THEN-* 

IF  y>93  AND  y<105  THEN  Restart-* 

IF  y>53  AND  y<66  THEN  SCREEN  CLO 

SE  liWINDOW  CLOSE  3 :CLEAR, 25000 : 

END-* 

END  IF-* 

GOTO  EndGWait-* 

■« 

EndGame:-* 

IF  k=3  THEN-* 

COLOR  10,0: GOSUB  Border: COLOR  11 

:LOCATE  1 ,  19  :  PRINT"Draw"-* 

ELSE-* 

IF  k=t2  THEN  COLOR  4,0:GOSUB  Bord 

er: COLOR  5 : LOCATE  1 , 16 :PRINT"Red 


IF  k-1  THEN  COLOR  6,0: GOSUB  Bord 

er: COLOR  7 : LOCATE  1 , 15 : PRINT"Gre 

en"  ;•* 

PRINT"  victory"-* 

END  IF-* 

EndGWait:-* 

WHILE  MOUSE(0)>-1:WEND!X=MOUSE(3 

)  :y='M0USE(4)-* 

px=INT ( ( x-8 ) / 27 ) : py=INT ( ( y+6 ) /l9 

)  ;move3=0'* 

IF  NOT((px>0  AND  px<10)  AND  (py> 

0  AND  py<10))  THEN  EGOpt-* 

GOTO  EndGWait-* 
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36 
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14E1:8D  36 

C9 
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41 

C9 

BD 

63 

90 

1779: BD  8F  C8  99  8F  C8  BO  E0  19 

1A11:6A  DA  03  AF  AF  AF  AF  AF  07 

14E9:C9  29 

03 

AA 

AD 

35 

C9 

85 

A7 

1781 :C8  99  E0  C8  60  AD  36  C8  12 

1A19:08  F6  FD  06  AF  AF  6F  DF  2A 

i4Fl:FD  AD 

36 

C9 

85 

FE 

A0 

00 

51 

1789:80  2E  C8  AD  37  C8  8D  2F  25 

1A21:07  FA  FA  FA  FA  FA  03  AA  IB 

14F9:B1  FD 

5D 

08 

15 

91 

FD 

AE 

40 

1791 :C8  4C  5C  0C  20  86  17  20  EC 

1A29:AA  AA  A9  A7  03  A7  9F  7F  82 

1501:41  C9 

68 

A8 

68 

AA 

60 

C0 

45 

1799:0B  00  AE  13  C8  20  73  17  5C 

1A31:02  FA  FA  F9  F7  04  9F  7F  82  ' 

1509:30  0C 

03 

00 

00 

20 

40 

0D 

BC 

17A1:AD  23  C8  48  AD  24  C8  48  E4 

1A39:14  FD  F5  03  F7  D5  55  55  FC 

1511: AC  28 

C8 

AD 

12 

C8 

C9 

28 

FE 

17A9:AD  06  C8  8D  23  C8  AD  07  C0 

1A41:55  05  7F  5F  57  FA  FA  06  E9 

1519: D0  06 

A9 

04 

99 

51 

C9 

60 

AS 

17B1:C8  8D  24  C8  20  FC  0B  68  2C 

1A49:AA  AA  06  AB  AB  0A  FE  FE  7B 

1521 :AD  0E 

C8 

C9 

FF 

D0 

04 

EE 

95 

17B9:8D  24  C8  68  80  23  C8  20  02 

1A51:FE  FE  04  7F  5F  57  55  08  48 

1529:27  C8 

60 

AD 

32 

C8 

85 

FD 

BD 

17C1:40  00  4C  A3  0C  D5  A2  0A  IE 

1A59jFE  FE  FE  FE  FE  03  55  55  A0 

1531 :AD  33 

ce 

85 

FE 

AC 

28 

C8 

34 

17C9:0A  04  12  00  01  04  0A  0A  76 

1A61:57  5F  7F  03  7F  00  FA  FA  5A 

1539:B9  51 

C9 

8D 

32 

C9 

A8 

Bl 

62 

1701 :0A  06  06  0E  02  02  06  06  52 

1A69:06  AA  AA  06  AB  AB  F5  FD  P6 

1541:FD  8D 

31 

C9 

10 

0C 

EE 

27 

4G 

17D9:0A  00  00  01  01  01  01  03  2E 

1A71:06  55  55  55  D5  F7  03  57  E9 

1549:C8  AD 

32 

C9 

8D 

31 

C9 

4C 

37 

17E1:03  03  03  03  03  03  03  03  10 

1A79:5F  7F  11  FD  F5  05  55  04  F4 

1551:D0  15 

C9 

04 

D0 

09 

AC 

28 

CE 

17E9:03  03  03  03  03  03  03  03  18 

1A81:BF  BF  BF  BF  FD  07  55  55  85 

1559:C8  99 

51 

C9 

4C 

0D 

16 

EE 

C6 

17F1;03  00  02  00  00  01  02  02  EB 

1A89:05  F5  FD  03  BF  BF  BF  BF  52 

1561 :27  C8 
1569:AE  28 
1571 :C3  C9 

AC 
C8 
48 

28 
BD 
BD 

C8 
63 
23 

4C 
C9 
CA 

BD 
48 
48 

16 
BD 
BD 

72 
7A 
67 

17F9:02  02  02  00  01  00  02  02  F7 

1A91:BF  0E  FB  F7  FB  F7  FB  10  EF 

1801:03  00  00  00  00  01  02  00  BA 
1809:00  01  01  01  01  00  00  00  Bl 

1A99:EA  E6  A6  66  6A  AA  04  BF  FD 
1AA1:7F  7F  BF  07  F9  FA  FA  05  94 

1579:83  CA 
1581:14  18 
1589:69  03 
1591 :9D  83 
1599 :9D  63 

48 
9D 
9D 
CA 
C9 

BD 
23 
C3 
6D 
B9 

51 
CA 
C9 
38 
IC 

C9 
6D 
B9 
C8 
18 

A8 
39 
18 

69 
80 

B9 
C8 
18 
05 
19 

B9 
E8 
96 

58 
B5 

1811:00  00  00  00  01  00  FF  FF  49 
1819:00  01  00  10  0C  10  0C  04  47 
1821:04  04  04  00  01  02  03  00  EA 
1829:03  02  01  02  01  00  03  03  AC 
1831:02  01  00  01  00  03  02  04  C6 

1AA9:BF  BF  AB  08  F9  FA  FA  F9  4F 
1AB1:04  66  AB  BF  BF  04  6F  12  Fl 
1AB9:AA  6A  66  A6  E6  03  BF  7F  57 
1AC1:7F  BF  09  EA  FB  F7  FB  F7  2  5 
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1AD9:6F  AF  AF  6F  05  05  DF  DF  BD 
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15B9:10  CE 

19 

C8 

D0 

E3 

68 

9D 

03 

1851:02  04  04  01  04  04  02  04  4C 
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AA 
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E5 
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1679:14  18 
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C9 

30 

24 

26 
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F0 
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B0 
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45 

6B 
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C8 

BD 

18 

18 

18 

85 
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1691:79  4B 

C9 
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F0 
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Program  3:  Laser  Chess  For 

16A1:C8  A9 

01 

60 

A9 

04 

99 

51 

A4 

1939:10  FD  07  7F  AF  DF  13  FD  EC 

Atari  XL  And  XE 

16A9:C9  A9 

00 

60 

AD 

IB 

D4 

30 

DE 

1941  :FA  04  DF  AF  7F  03  FD  FA  E7 

16B1:04  20 

CE 

0C 

60 

20 

CE 

0C 

AF 

1949:04  07  AF  7F  10  F5  01  FA  B6 

Version  by  Rhett  Anderson, 

1689:20  E8 

0C 

60 

AD 

31 

C9 

29 

A6 

1951  :FA  FA  03  55  EB  AA  AA  AA  7F 

Assistant  Editor 

16C1:03  8D 

31 

C9 

AD 

00 

CB 

C9 

5E 

1959:03  5F  01  AF  AF  AF  FA  FA  20 

16C9:0E  D0 

36 

A2 

00 

BD 

57 

C9 

91 

1961 :FA  FA  FA  93  AA  AA  AA  AA  5F 

BO  0  ?   "  CCLEAR} '•:  POKE  710,4: 

16D1:CD  12 

C8 

D0 

0E 

BD 

5D 

C9 

7B 

1969:AA  03  AF  AF  AF  AF  AF  06  44 

CLR  :DIM  S« (76B0)  , ML«  C4 

16D9:CD  31 

C9 

D0 

06 

A9 

04 

99 

F7 

1971 :FA  FA  FA  FA  FA  03  AA  AA  02 

0) , SI (26) 1 AS=ADR (Sf) : S* 

16EX:51  C9 

60 

E8 

E0 

06 

00 

E5 

6A 

1979 :AA  AA  AA  03  DF  DF  OF  9F  0F 

(  1)=CHR*  C0)  :S«  (7680) =CH 

40     COMWJTil     June  1987 


R$ (0) : S* (2) =S*: GOSUB  95 

-1,-1 

:B03UB  B000:NEXT  PY:N 

00 

HF  88 

DATA  -1,3,-1,-1,0,1, 2, 

EXT  PX: PX^CNl : PY-PX:Q 

BK  1 

GRAPHICS  0:POKE  710,0:? 

3,-2,2,-1,2,3,-2,3,-1 

aSUB  8300 J GOSUB  8900 

"LASER  CHESS  Ctm) ":?  " 

IP  90 

DATA  -1,0,-2,0, 1,-1, 1, 

DE  131 

S=STICK ( (PLAYER-CNl) * 

1  JOYSTICK  OR  2";: INPUT 

-2,-1,0,3,-1,-1,-1, 1,0 

NUMJDY=CN2) : IF  MOVE=C 

NUriJOY:IF  NUMJOYOl  AN 

PJ  92 

DATA  1,-1,-1,2,3,2,-1, 

N2  THEN  HYCUBE=-CN0:  FI 

D  NUMJ0YO2  THEN  1 

-1 

RED=CN0sHYSQ=CN0 STAKE 

LB  2 

REM  COPYRIGHT  1987  COMP 

IJ  95 

GRAPHICS  CN9 

N=l 

UTEl  PUBLICATIONS,   INC. 

LP  100 

FOR  I^CN0  TO  CN3:READ 

EJ  135 

IF  STRIG C tPLAYER-CNl) 

<3  SPACES>ALL  RIGHTS  RE 

DUMl, DUM2: DIRX ( I  J  =DU 

«NUMJDY*CN2)-0  THEN  2 

SERVED 

Ml : DIRY (I)=DUM2:NEXT 

00 

CP  3 

PLAYER=1 : PMBASE=54279 : R 

I :DATA  0,-1,1,0,0,1,- 

nB   136 

IF  SEL>CN0  AND  PEEK (7 

AriTOP=106:  SDMCTL  =  559:GR 

1,0 

64)=CN0  THEN  POKE  764 

ACTL=53277: HPOS0=53248: 

KO  1  0  1 

yTAB=PEEK ( 134) +PEEK ( 1 

,255: GOTO  800 

PCQLR0 5*704:  riDVE  =  2 

35) t256:ATAB=PEEK<140 

OF  13B 

IF  S=15  THEN  131 

ZK  4 

CN0  =  0:CNls=l  :  CN2  =  2:  CN3  =  3 

) +PEEK ( 141 ) <256 

P1A  139 

IF  STICK ( (PLAYER-CNl) 

: CN4  =  4: CN5  =  5s  CN9  =  9:  CN20 

B6  102 

0FFS=PEEK(88) +256* PEE 

*NUMJ0Y-CN2)<>15  THEN 

=20: CN99=99: S* ( 1 92t40) = 

K(S9) -ATAB: HI^INT (OFF 
S/256) : L0=0FFS-HIt256 
:OFFS2=-<INT(AS/1024)  + 

QB  140 
NB  141 

139 
GOSUB  8400 
PX  =  PX+  CS  =  7)  -  (5=^1  1  J 

[^Hrr=T^-F^*"TM";  :GUSUB  2b0 

00 

CNl ) tl024-ATAB 

Al  150 

PY  =  PY+(S=«i3)  -  (S=14) 

CL  5 

DIM  CLR (9, 9> , PIECE (9, 9) 

OH  103 

POKE  VTAB+CN2, LO: POKE 

PC  160 

PX=PX+(PX»CN0) *CN9- (P 

, ORIENT (9,9) , A* ( 100) , A ( 

VTAB+CN3, HI 

X=10) tCN9 

11),  TURNS  te),DIRCK(8,15 

FL  1  12 

COLOR  6:PL0T  CN0,CN0: 

PH  170 

PY  =  PY+(PY  =  CN0)  »CN9-  (P 

),DIRX(3>,DIRYC3),DIR(3 

DRAWTO  79,CN0:COLOR  9 

Y=10)»CN9 

) ,BEAMCK$(399) 

:PLOT  CN0, CNl: DRAWTO 

JS  175 

POKE  77,0 

IL  6 

DIM  LX <3) , LY(3) , ALIVE(3 

79, CNl 

DE  1B0 

GOSUB  B300 

) , NLX (3) , NLY(3) , TERM (3) 

NA  1  1  3 

S*  (81,  192*40) =5$ 

PD  1B5 

IF  SEL=CN1  THEN  TX=PX 

, DRK(3) : GRAPHICS  2+16 

00  1  14 

COLOR  CN0:PLOT  6,CN5:   , 

:  TY=*PY:PX  =  SPX:  PY  =  SPY: 

«J  7 

A*="n   laser  chess  (TM) 

DRAWTO  60,CN5:PLOT  6, 

GOSUB  a600:PX»TX:PY-T 

nnC3  SPACES>CaPYRI6HT  1 

6:DRAWT0  60,6:S»(2ai, 

Y 

9a7nC6  SPACES>WilSSiltirf=tJn 

7440) =S$(201 ) 

BI  190 

GOTO  131 

IUiJ=]^<»i:h#4<J:K^*^4;!»fl1nn^ll 

LL  1  1  7 

COLOR  6:F0R  1=86  TO  1 
05  STEP  CN2: PLOT  31 , I 
: DRAWTO  36, I: NEXT  I : C 

nH  200 
JC  21  0 

IF  SEL>CN0  THEN  400 
IF  CLR(PX  PYJ=PLAYER 

KL  e 

BEAMCK*(399)=CHR*(0)  :  BE 

THEN  SEL=1:  SPX«=PX!  SPY 

AMCK* (1,1 )=CHR» (0)  :  BEAM 

OLOR  CN9:FDR  1^87  TO 

=  PY 

CK* (2)^BEAMCK« 

105  STEP  CN2:PL0T  31, 

NP  215 

IF  STRIG ( (PLAYER-CNl ) 

01  10 

FOR  X=CN0  TO  CN9:F0R  Y 

I 

»NUMJOY=CN2)=CN0  THEN 

=CN0  TO  CN9:PIECE<X, Y) 

AL  118 

DRAWTO  36, I : NEXT  I 

215 

=CN0:LET  CLR(X,Y)=CN0 

MB  1  19 

GRAPHICS  63:P0KE  710, 

6K  220 

GOTO  139 

DP  19 

D*10-ABS (X-Y>iE=X»Y*3+ 

9:P0KE  708, 132:P0KE  7 

OB  2B0 

COLOR  PLAYER 

lis  IF  E=ll  THEN  22 

09,84:COLOR  1 s PLOT  12 

JK  400 

FPX=PX:FPY=PY: IF  PX^S 

J£  2  0 

SOUND  CN1,E, 10,D:POKE 

, 5: DRAWTO  12, 186: DRAW 

PX  AND  PY=SPY  THEN  70 

709,  D 

TO  122, 1S6: DRAWTO  122 

0 

AK  21 

SOUND  CN2, E+CNl , 10, D 

,5:DRAWTQ  12,5 

lA  410 

IF  ABS(PX-SPX)+ABSCPY 

LI  22 

T=T+CN1:IF  T>LEN(A*)  T 

NE  120 

PLOT  CN0, CN0: DRAWTO  1 

-SPY) >MDVE  THEN  139 

HEN  30 

59, CN0: DRAWTO  159, 191 

HO  420 

IF  ABS CPX-SPX ) =CN2  TH 

Fl  23 

IF  A* (T,T) ="n"  then'  PR 

: DRAWTO  CN0 , 1 9 1 : DRAWT 

EN  IF  PIECE (  (PX  +  SPX)  / 

INT  #6: GOTO  30 

0  CN0,CN0 

CN2,PY)<>CN0  THEN  139 

EH  24 

PRINT  #6; A* (T, T) ; 

HB  121 

GOSUB  21080:HI=INT (OF 

IC  430 

IF  ABS (PY-SPY) =CN2  TH 

IfH  30 

NEXT  y:NEXT  X 

FS2/2S6) : L0=aFFS2-HI* 

EN  IF  PIECE (PX, (PY+SP 

KC  50 

RESTORE  62:FQR  Y=CNI  T 

256 

Y)/CN2)<>CN0  THEN  139 

0  CN2:F0R  X-CNl  TO  CN9 

LA  122 

A=INT(  (AS/1024)+CN1)  * 

PI  440 

IF  ABS(PY-SPY)  OCNl  0 

:LET  CLRCX, Y)=CN1:LET 

CN4:P0KE  PMBASE,A:MYB 

R  ABS  (PX-SPXX  >CN1  TH 

CLR(X, Y+7)=CN2 

ASE=256»A: POKE  SDMCTL 

EN  450 

M6  60 

READ  DUMliREAD  DUM2:RE 

,46:P0KE  GRACTL,CN3 

CA  445 

IF  (  (PIECE (PX, SPY) <  >C 

AD  DUM3:PIECE CX, Y) «DUM 

IL  123 

FOR  I--CN1  TO  CN3:PaKE 

N0  OR  (PX»CN5  AND  SPY 

1  !  PIECE  (  10-X,  10-Y)  -=DUM 

53256+1 , CN3: POKE  VTA 

=CN5))  AND  (PIECE (SPX 

1 

B+CN2,LD: POKE  VTAB+CN 

,PY)<>CN0  OR  (SPX=CN5 

0D61 

ORIENT (X, Y)-DUM2  +  CNl!  0 

3, HI 

AND  PY=*CN5)  )  )  THEN  1 

RIENT(i0-X, 10-Y)=DUM3+ 

CP  124 

POKE  PCDLR0+I,8:POKE 

39 

CNlsNEXT  XiNEXT  Y 

HPOS0+I , CI-CNl ) *32+62 

IE  450 

IF  PIECE(PX, PY)<>CN0 

W  62 

DATA  8,2,0,8,2,0,1,1,1 

:NEXT  IiPOKE  623,4:P0 

THEN  IF  PIECECSPX,SPY 

,2,2,0.4,0,0 

KE  53254, 166: POKE  532 

)<>CN4  AND  PIECE(SPX, 

QK  64 

DATA  6, 0,0,1, 0, 0,8,3, 1 

55,15e:P0KE  53260,255 

SPY)<>CN5  AND  PIECE(S 

,8,3,1,8,3,1 

LA  125 

FOR  I»CN0  TO  89:HH=CN 

PX,SPY)<>6  THEN  139 

NN  66 

DATA  5,2,0,5,2,0,7,2,0 

0: IF  INTCINT ( 1/10) /CN 

CB  455 

IF  PX=CN5  AND  PY=CN5 

,3,0,0,3,1,1 

2)=INT ( 1/10) /CN2  THEN 

THEN  650 

LA  6e 

DATA  5,2,0,5,2,0,8,2,0 

HH=CN1 

F«  460 

IF  PIECE (PX, PY)<>CN0 

BI  70 

FOR  I»CN1  TO  8: READ  DU 

AP  126 

POKE  MYBASE+787+I, 113 

THEN  500 

M: TURNS (I) =DUM:NEXT  I  s 

I  IF  HH  THEN  POKE  MYBA 

a  470 

TX=PX:TY=PY:PX^SPX«PY 

DATA  1,3,1,0,3,0,3,3 

SE+787+1 , 142 

-SPY: GOSUB  8200:PX=TX 

£J  60 

FOR  I-CNl  TO  8:F0R  J=C 

OE  127 

POKE  MYBASE+915+I, 199 

: PY=TY 

N0  TO  TURNS (I) : FOR  K=C 

: IF  HH  THEN  POKE  MYBA 

SE475 

FOR  T=0  TO  10: SOUND  0 

N0  TO  CN3!READ  DUMsDIR 

SE+915+I,56 

, 100, 10, 10-TjNEXT  T 

CK  ( I ,  J+KtCN4  )  =-DUM:  NEXT 

IP  128 

POKE  MYBASE+403+I, 0: I 

CE  480 

PIECE (PX, PY)=PIECE(SP 

KsNEXT  J; NEXT  I 

F  HH  THEN  POKE  MYBASE 

X,SPY):LET  CLR(PX,PY) 

JE  B2 

DATA  1,0,3,2,3,2,1,0,- 

+403+1 ,224 

=CLR (SPX, SPY) : ORIENT ( 

1,-1,-1,-1,-1,-1,-1,-1 

OK  129 

POKE  MYBASE+659+1,28: 

PX,PY)=aRIENT (SPX, SPY 

J6  84 

DATA  -1,-1,-1, -1 ,-1,-1 

IF  HH    THEN  POKE  MYBAS 

) : GOSUB  8000 

,-1,-1,2, 1,0,3,0,3,2, 1 

E+659+I, 227 

m  490 

PIECE (SPX, SPY) =CN0: LE 

HF  8& 

DATA  -1,-1,-1,-1,-1, -1 

AF  130 

NEXT  I: FOR  PX=CN1  TO 

T  CLR  (SPX,SPY) '=CN0 

,0,-1,-1,-1,-1,1,2,-1, 

CN9SF0R  PY=CN1  TO  CN9 

FF  49  1 

MOVE=MOVE-ABS (FPX-SPX 
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) -ABS  (FP.Y-SPY)  ;  IF  MOV 

E  =  CN0  THEN  JiOVE  =  CN22P 

LAYER=tPLAYER=CNl ) +CN 

i:GQSUB  2800 
BC  492  PX  =  FPX:  PYeFPY:GOSUB  B 

700:6070  131 
I1H500  IF  PIECE  CSPX, SPY)  =CN4 
OR  PIECE tSPX, SPY) =CN 

5  THEN  IF  TAKEN  THEN 

TAKEN=0:GOTO  600 
EL50i  IF  PIECECSPX,  SPY)  =CN4 
OR  PIECE(SPX,SPY)=CN 

5  THEN  139 
NA505  IF  HYCUBE  THEN  IF  PIE 

CECSPX, SPY) =6  THEN  13 

9 
FF  510  HYCUBE  =  CN1 
nfl514  NX=INT (RND<CN0) «CN9+C 

Nl> :NY=INT(RND(CN0) »C 

N9+CN1 ) 
B6  516     IF    NX-CN5    AND    NY-CN5 

THEN    510 
F6520     IF    PIECE  (NX.NY)  OCN0 

THEN    510 
FI  525    FOR    T*0    TO    20!  SOUND    0 

,30  +  T,T,  {20-T) /2:NEXT 
T 
!tfl530    PIECE<NX,NY>«PIECE(PX 

,PY) : ORIENT (NX, NY) -OR 

IENT(PX,PY>  sLET  CLR<N 

X,NY)»CLR(PX,PY> 
JP  540  PIECE<PX,PY) -PIECE  (SP 

X,SPY) s ORIENT (PX,PY) = 

ORIENTCSPX.SPY)  iLET  C 

LR  <  PX , P Y ) »CLR (SPX , SPY 

) 
OE5S0  PIECE  (BPX, SPY)  «CN0:  LE 

T  CLR(SPX,SPY)-CN0 
MP  560  80SUB  8200:  TX=PX:  TYsP 

Y:PX=iSPX:PY  =  SPY:GOSUB 
8200:PX=TXsPY=TY 
EC  565  FOR  T-0  TO  20:  SOUND  0 

, 45+ (20-T) ,T, (20-T) /2 

sNEXT    T 
BD570    BOSUB    8000!  TX-PX  :  TY  =  P 

Y:PX-NX!PY=NY:BOSUB    6 

000:PX=TX! PY=TY! GOTO 

491 
U)600    K«0:IF    PIECECPX>PY)=C 

N4    THEN    K-CLR(PX,PY) 
6P605    FOR    T-10    TO    20:SOUND 

0, lB0,6,20-TiNEXT    T 
JN610    PIECE  (PX,PY>=«PIECE(SP 

X,3PY> : ORIENT (PX,PY)- 

ORIENT (SPX, SPY) !LET    C 

LR{PX,PY)»CLR (SPX, SPY 

) 
tK620  PIECE  (BPXpSPY)  «CN0:  LE 

T  CLR(SPX,SPY) -CN0 
NN  630  BOSUB  8200:  TX-PX  :  TY-P 

Y: PX-SPX ! PY-SPY: BOSUB 
0200! PX«TX:PY-TY 
011640  BOSUB  8000:  IF  K  THEN 

7000 
HC641  BOTO  491 
DL650  IF  HYSQ  THEN  139 
m 651  PX=INT {RND(CN0) »CN9+C 

Ni) :PY-INT(RND(CN0) «C 

N9+CN1) 
EJ  655  IF  PIECE  tPX,  PY)  <  ;>CN0 

THEN  651 
PB  660  HYSD^CNl:  GOTO  455 
IA700  RESTORE  P  I  ECE  (  P  X  ,  P  Y  )  * 

10+9990 
11702  FOR  T==0  TO  5:  SOUND  0, 

100+Tt5,6,5-T:NEXT  T 
Dtt705  IF  STRIG (  (PLAYER-CNl ) 

$NUMJOY=CN2>«CN0  THEN 
705 
JL  710  HOLD  =  ORIENT  (PX,  PY> 
EH  720  READ  DUMriY2  :  TEMP  =  HOLD 
JA740  TEMP  =  TEMP  +  CN1  :  IF  TEMP 

>DUHMY2  THEN  TEMP=CN1 


LF  760 


EQ  762 


Ml  765 


PF  766 


HD  780 

BC  790 


P«  795 
FF  800 
FN  801 

tl1S02 

DH  805 


BI  806 


NA  B  1  0 


on  820 


CD  830 

ftK  B50 


FJ  860 


U  861 


MO  862 


LN  065 


CH  870 
EH  875 


ftC  876 


HB  890 
BJ  9  00 


PB  910 
CN  2000 


Cfi  2002 


Fl  2005 


CF  2010 


en  2020 


flL  2030 


LJ  2035 


BOSUB  B200: ORIENT (PX, 
PY)  ==TEIiP:  BOSUB  8000 
IF  TEMP=HOLD  THEN  GOS 
UB  8700:GOTO  131 
IF  STICK ( (PLAYER-CNl) 
*NUMJ0Y  =  CN2)  015  THEN 

790 
IF  STRIBt (PLAYER-CNl ) 
«NUMJ0Y=CN2) =CN1  THEN 

765 
GOTO  740 

MOVE-MOVE-CNl : IF  MOVE 
=CN0  THEN  M0VE=CN2:PL 
AYER= (PLAYER=CN1 )+CNl 
; FIRED=CN0: GOBUB  2800 
GDSUB  8700!BaTO  131 
IF  FIRED  THEN  131 
IF  PIECE (PX,PY)<  >CN2 
THEN  131 

SOUND  CN0, 255,  10,  10: S 
OUND  CNl , 254, 10,10 
FIRED=CN1 :K=CN0:DEAD* 
0:CaLOR  CN3:60SUB  200 
0 

BEAMCK* (399)-CHR* (CN0 
) : BEAMCK* (CNl ,CN1 )=CH 
R*  CCN0)  : BEAMCK* (CN2)  = 
BEAMCK* 

FOR  I=CN1  TO  CN3: IF  T 
ERM(I)<>CN1  THEN  830 
IF  PIECE  CLX  ( I)  , LY ( I )  ) 
>CN0  THEN  TX=PX:TY=PY 
: PX-LX ( I ) :PY=LY ( I ) : GO 
SUB  9000:  PX=TX:  PY=^TY 
NEXT  I 

DEAD=1:G0SUB  2000:FDR 
l«=CNi  TO  CN3:  IF  TERM 
(DOCNl  THEN  870 
IF  PIECE  CLX  ( I )  , LY ( I )  ) 
=CN0  THEN  870 
TX=PX: TY=PY: PX=LX ( I ) : 
PY=LY< I) 

IF  PIECE(PX, PY) =CN4  T 
HEN    K=CN1 

PIECE (PX, PY) =CN0: LET 
CLR (PX, PY) «CN0: BOSUB 
8200: PX=TX: PY=TY 
NEXT  I 

BEAMCK* (399)=CHR« (0) ! 
BEAMCK* (1,1) =CHR* (0) : 
BEAMCK* (2) =BEAMCK* 
SOUND  CN0, CN0, CN0,CN0 
iSOUND  CNl , CN0, CN0,CN 
0 

IF  K  THEN  7000 
MOVE-MOVE-CNl : IF  MOVE 
=CN0  THEN  M0VE=CN2:PL 
AYER= (PLAYER»CN1 ) +CN1 
: BOSUB  2800 
GOSUB  8700: GOTO  131 
LX (CNl )=PX: LY (CNl) =P 
Y: DIR(CN1 )=ORIENT  CPX 
,PY) -CNl 

FOR  I=CN1  TO  CN3!ALI 
VE  (  I  )  =CN0:  TERM  (I  )  *^CN 
0:NEXT  I: ALIVE (CNl ) = 
CNl 

IF  NOT  (ALIVE(CN1)= 
CNl  OR  ALIVE (CN2>=CN 
1  OR  ALIVE (CN3)=CN1 ) 

THEN  2100 
FOR  I«CN1  TO  CN3! IF 
ALIVECIXCNi  THEN  20 
90 

NLX  ( I ) =LX  ( I ) +DIRX  CDI 
R( I ) ) : NLY ( I) ^LY (I ) +D 
IRY (DIR(I ) ) 
IF  BEAMCK* (LX  (I ) +LY  C 
I )  «10  +  DIR  t 1 )  *100,LX  ( 
1  >  +LY ( I ) tl0  +  DIR( I )  «1 
00)=CHR»(CN1 )  THEN  2 
085 
BEAMCK* (LX (I ) +LY ( I>  * 


10+DIR ( I) *100,LX ( I ) + 
LY ( I )  «10  +  DIR  (  I )  »100) 
=CHR* CCNl) :GOTO  3000 
JF  2080  TERM  (  I  )  =CN1  :  DRK  (  I  )  =T 
DIR: IF  DEAD  THEN  208 


CP  2081 


SL  2083 

^=  2085 

!N  2090 

f.D  2  100 

HK  28  0  0 


Ce  2810 


BD  3000 

HA  3010 


HC  30  2  0 

<n  3021 


KF  3030 


OE  3040 
AI  3041 


AF  3050 


m  3060 

HD  5000 


EJ  5005 
KN  5010 


BF  5020 


BE  5030 


GI  5040 


NK  5050 


HA  5060 


PL  5070 


CO  5071 


KB  5080 
J6  7000 


TX=PX:TY=PY:PX=LX(I) 
:PY=LY ( 1 ) : IF  PIECE (P 
X,PY)=4  THEN  K=K+CLR 
(PX , PY) 

LET  CLR (PX, PY)=3: GDS 
UB  8000: PX=TX : PY^TY 
ALIVE  t  I  ) =-1 
NEXT  I:GOTO  20P5 
RETURN 

COLOR  PLAYER: PLOT  12 
,CN5:DRAWTD  12, 186: D 
RAWTO  122, 1B6: DRAWTO 
122, CN5: DRAWTO  12, C 
N5 

PLOT  CN0, CN0: DRAWTO 
159, CN0: DRAWTO  159,  1 
91:DRAWT0  CN0,191:DR 
AWTO  CN0, CN0: RETURN 
X=LX  (  I )  *  12  +  7: Y  =  LY ( I ) 
♦20-CN5 

ON  DIR(I)  BOTO  3030, 
3040, 3050 
IF  Y<20  THEN  Y=20 
POKE  1632,X:P0KE  163 
3, Y- 19: POKE  1634, Y: D 
UMMY  =  USR  C 1648)  : GOTO 
5000 

POKE  1632,  X:  POKE  163 
3,  X  +  1  1  :POKE  1634, Y; D 
UMMY=USR ( 1679) : GOTO 
5000 

IF  Y>171  THEN  Y=171 
POKE  1632, X+1 s POKE  1 
633, Y: POKE  1634, Y+ 19 
: DUMMY  =  USR  C 1648)  : GOT 
0  5000 

POKE  1632, X-1 1 iPOKE 
1633, X: POKE  1634, Y+1 
: DUMMY-USR ( 16791 :GDT 

0  5000 
BOTO  5000 

IF  NLX ( I ) >CN9  OR  NLY 
(  I )  >CN9  OR  NLX  (  I  >  <CN 

1  OR  NLY ( I ) <CN1  THEN 
2085 

IF  NLX ( I ) =CN5  AND  NL 

Y(I)=CN5  THEN  20B5 

LX  (  I  )=NLX  ( I )  :LY  tI)=N 

LY  (  I )  :  IF  PIECE(NLX  ( I 

) ,NLY ( I ) ) -CN0  THEN  2 

090 

TDIR==DIR  (  I  )  :  DIR(  I  )  =D 

IRCK (PIECE (LX ( I ) , LY ( 

I  >   )  , ORIENT (LX  ( I )  , LY  C 

I )  ) -1+DIR  (  1 )  *4) 

IF  DIR(U-"1  THEN  20 

80 


IF 
90 

J*CN3 
CN0  T 
ALIVE 
X  (I>  : 
DIR  (  I 
IR(I) 
CN0 
DIR(J 
IR  (J) 
«CN3 
BOTO 
FOR  T 
:POKE 
T=10 
OR  TT 
SOUND 
0-TT 


DIR( I ) >-2  THEN  2fi 


IF  ALIVE(CN2)= 
HEN  J«CN2 
(J) =CN1 : LX (J) =L 
LY  CJ) sLY (I > 
)=TDIR+CN1 : IF  D 
"4  THEN  DIR(I)» 

>=TDIR-CN1: IF  D 
=-1  THEN  DIR(J) 

2090 

-53248  TO  53255 
T,0:NEXT  T:FOR 
TO  70  STEP  5:F 

=0  TO  10-(T/7)! 
0, T+20-TT, 10, 1 
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10  MHz  IBM®  XT  Compatible 
Computer  System  Sale 

;    tomplce  System  for  0.1,  COMPUTER  DIRECT 

-     9  JC  ^^  ^^00  22292  N.  Pepper  Road,  Barrington,  III.  60010 

^P   Jr  ^r  "  The  Computer  Experts  " 

Call  (3 1 2)  382-5050  or  382-5244  for 

Free  Catalogs  of  Over  1000  Programs  &  Accesories 

Best  Service  •    Best   Price  •  1000  Programs  •  500  Accessories  •  15  Day  Free  Trial 


1 0  MHz  Super  Turbo 
Compatible  Computer 


Utjusiafracuon 
\     of  the  cost'. 

^f  two  tit^®* 

Look  at  all 
you  get  for 
only  ^599'''' 

The  comploto  system 


c==l 


'.^:| Second  Drive  i99.00| 


This  computer  sysiem  is  sold  as  a  complete  unii.  NO  SUBSTITUTIONS  arc  allowed 


15  Day  Free  Trial 

90  Day  Replacement  Policy 

Double  90  Day  Policy 
On  Computer 


List  Price 


Sale  Price 


10  MHz  Super  Turbo  XT  Computer  *T  295^*'  •4990a 

•  5 1 2K  Memory  *99"  rN^  g^tra  cost 
'^  Single  floppy  disk  drive  » 1 29"  No  extra  cost 
■^  Parallel  primer  port  *59"  No  extra  cost 
•*-  Serial  printer  port  *59"  No  extra  cost 

•  Mouse/joystick  port  »59"  No  extra  cost 

*  RGB  color  graphics  port  *99"  No  extra  cost 

*  Hercules  compatible  monochrome  port  tyt^t^  ^^  extra  cost 
MS  DOS  3.2  &  GW  Basic  *  ^  99°°  •99«» 
12"  Hi-Res  35  MH^  Green  Screen  Monitor  i249°°  •9900 

(TTL  Sl  EGA  compatible) 

Monitor  interface  cable  *24'*  •19** 

Big  Blue  Printer  » 1 9900  *39«> 

RS  232  IBM  to  Big  Blue  cable  M9'*  *9'» 

2  rolls  of  paper  *19**  •5»» 

Word  First  •  NVord  Processor  19900  *39^> 

Data  First  •  Data  Base  19900  *39*> 

Caic  First  •  Spreadsheet  19900  ■39*» 

|Totql  price  when  bought  meporqfely  *2893*^  *S92*^      "" 


Home  &  Business 

This  IBM*'?J  XT  compatible  is  perfect  for  your 
home  and/or  business  uses.  It  makes  life  easier  in 
more  ways  than  you  can  imagine.  Use  the  system 
for  personal  letters,  form  letters,  address  storage, 
listing  valuables,  figuring  finances,  school 
reports,  business  reports,  calculations,  business 
projeciions.-.the  list  can  goon  and  on.  With  the 
addition  of  some  of  the  thousands  of  software 
programs  available  for  IBM®  you  can  increase 
the  capabilities  of  your  sysiem  even  further.  A 
terrific  home  improvement,  business  enhancer, 
entertainment  center  &  educational  aid! 


Save  over  ^275°° 
off  sale  prices! 

Complete  Syitom  only  *599 


_\ \u\\ t  -  111  t  he  S 11  per   I  VI  r bc>  X  r 


_tBM^jMj_tKe_trQd*mgrK  pf  lr>>»rriof ionol  Bmineis  MQch>no»  Inc. 


VISA   MASnKAto - C.O.D.  Shipping,  Hondllng  &  Insurance  CKargos  ond  Information  vlSAMASntCA»0-C.O.O. 

Add  S35  00  fof  shipping,  handling  and  miutonce,  llhnols  residents  pilose  add  6'i%  $ole$  lax.  Add  570.00  for  CANADA.  PUERTO  RlCO.  HAV^AII.  ALASKA  and  APOFPO  All 
orders  musi  b«  in  US,  dollors,  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES  EXCEPT  CANADA  &  PUERTO  RICO.  Enclose  Cashier  Check.  Money  Order  or  Personol  Chock.  Allow 
Udoys  for  rfolivery.  3to  7  da¥**or  phoneorders.  1  doy  express  moil.  Prices  &  Availability  subject  lo  chonge  without  rvotice.  Pilose  coil  tor  CO  D   charges. 


J.f 'IJIiJ=l:|.5l:H^ 


(3 1 2)  382-5050  or  382-5244 

8am  -  8pm  CST  Weekdays  /  9am  -  12  noon  Saturdays 


WS4 


Faiii€}us  ISiilH>nul  Brand 


NLQ  180 

Printer  Sale 


•160 


1 80  CPS  •  Near  Letter  Quality  • 
Lifetime  Warranty' 


Sale  $  1  99^ 


Wholesaie 
Cost  Prices! 


All  New  up  Front 
Panel  Controls 


Fantastic  Graphics 
Easy  to  Use 


List  $499.95 
60%  OFF  LIST  PRICE 

NLO'180  Premium  Qualify  Printer 

Near  Letter  Quality  Selectable  From  Front 

Panel  Controls  •  High  Speed  Dot  Matrix* 

Letter  Quality  Modes  •  8K  Buffer  frees  up 

computer  4>times  faster  •  Pica,  Elite, 

Italics,  Condensed  •  Super  Graphics  • 

Business  or  Personal  •  Tractor/Friction  • 

15  Day  Free  Trial  •  Lifetime  Warranty  on 

Print  Head*  •  6  Month  Immediate 

Replacement  Policy  • 

NLQ- L  80  Print  Samples 


Fantastic  Price 


Th 

is    is 

art    examp 

le    of    ITALICS 

t- 

nh^ 

n  cz  ^d 

Boldface 

Condensed  Text 

Double-strike 

ex 

ample 

of   Near 

Letter   Quality 

APPLE  —  ATARI  ~  EPSON NLQ  1 80  SPECIFICATIONS IBM  —  commodore  ~  ETC — 


Print  Buffer 

8K  bytes  utility  buffer 

Printing  Direction 

Text  Mode  —  Bi-directional 

Graphic  Mode  —  Uni-directional 

Interface 

Centronics  Parallel  Port 

Paper 

Plain  paper,  Roll  paper,  Single  sheet 

Fanfold,  Multipart  paper:  max.  3  sheets 

(original  plus  2  copies) 

Character  Fonts 

Pica,  Elite,  Italics,  Condensed 


Printing  Method 

Impact  dot  matrix 

Printing  Speed 

1 60- 1 80  CPS  at  standard  character  printing 

Printing  Characters 

Standard  9x9  dot  matrix 
NLQ  12  x  18  dot  matrix  (33cps) 

Character  size:  2. 12  x  2.8  mm  (standard) 
Character  sets:  Full  ASCII  character  set  (%) 
32  International  characters 


INTERFJiCES 


Ink  Ribbon  Cartridge 

Ribbon  Life:  3  million  characters/cartridge 
Physical  Dimensions 
Size:  15'*xl2'*x5" 
Weight:  12.7  lbs. 

Maximum  Number  of  Characters 

Standard:  10  cpi         80  cpl 

Standard  enlarged:  5  cpi         40  cpl 

Elite:  12  cpi         96  cpl 

Elite  enlarged:  6  cpi         48  cpl 

Condensed:  17  cpi        132  cpl 

Condensed  enlarged:  8.5  cpi         66  cpl 

Condensed  elite:  20  cpi        160  cpl 


Atari  $39.95     Apple  11  $44.95    Commodore  $29.95     IBM  $24.95    Loser  128  $19.95    Maclntoih  $49.95 


$hlp|»lfi9»  Handllno  ^  invurctnco  Chargos 

Add  SIO.OO  for  shipping,  handling,  and  tn&urance.  lliinois  residents  please  add 
6%%  »oles  tOK,  Add  $20,00  for  ALASKA,  CANADA,  HAWAII,  PUERTO  RICO  & 
APO-FPO  orders.  All  order*  must  be  in  U.S.  Dollars.  WE  DO  NOT  EXPORT  TO 
OTHER  COUNTRIES  EXCEPT  CANADA  &  PUERTO  RICO.  Enctoae  cashier  check, 
money  order  or  personal  check.  AUow  14  days  for  delivery,  2  to  7  days  for  phone 
orders,  1  doy  express  moil.  Prices  &  Avoilobility  subject  to  change  without  notice. 
VISA  —  WASTER  CARD  —  C.O.P. Coll  For  C.O.D.  Charges. 


COIMIPUTER  PIRECT 

22292  N.  Pepper  Rd.,  Bardngton,  HIinols  60010 

Call  (312)  382-S050  or  382-5244 

To  OrdOr  We  Love  Our  Customers 


Complete  Apple®  Compatible 

Word  Processing  System 

•  15  Day  Free  Trial     •     90  Day  Immediate  Replacement  Policy  • 

Home  •  Business  •  School  •  Word  Processing 


Look  At  All  You  Get  for  only 

This  computer  system  is  sold  as  a  complete  unit,  NO  SUBSTITUTIONS  are  allowed. 


iwisi  rnce 

ovuv  jrrive 

Save 

Laser  128  Apple  Compatible  Computer 
Big  Blue  Printer 

$499.00 
199.00 

$395.00 
39.95 

12"  35  MHz  Hi-Resolution  Monitor 

229.95 

99.00 

Ovor 

Magic  Window  lie  wordprocessor 
Magicalc  Spreadsheet 

150.00 
150.00 

49.95 
49.95 

$70000 

Magic  Memory  Data  Base 

60.00 

39.95 

Laser  128  Big  Blue  Printer  Interface 

19.95 
19.95 

12.95 
5.95 

Off  List  Prices 

2  Rolls  of  Heat  Transfer  Paper 

Comparable  Apple  System  ($2495.00) 

$1327.85 

$692.70 

All  8  Pieces  Only  $499 

1 

2 
3 
4 

5 
6 
7 
8 


Magic  Window  He;  Word  processing  is 
easy  and  more  efficient  because  of  a 
simple*to-read  menu  system  and  editing 
commands.  Many  powerful  features  of 
professional  quality  programs  and 
more.  Supports  virtually  all  major 
printer  functions.  Operates  with  most  80 
column  video  cards  or  40/70  column 
no-hardware  mod^. 


Magicalc:  Rated  as  the  best  electronic 
spreadsheet  on  the  market  for  Apple. 
The  speed  with  which  Magicalc  solves 
number  problems  allows  you  to 
accurately  analyze  decisions 
beforehand.  Supports  multiple  RAM 
cards  of  most  manufacturers  in  any 
combinations  up  to  a  full  512  K. 


Magic  Memory:  File  anything,  any  way 
you  want  to:  names,  addresses, 
important  numbers,  dates  and  notes. 
Your  information  is  organized  simply, 
easy  to  maintain,  and  available 
instantly.  Supports  all  popular  printers 
and  video  cards. 

it  th«  r*gl«t#r«d  trademark  of  App\m  Cpmputft  IrK. 


Shipping,  Handling  &  Insurance  Ciiorg«a  ond  Informotion 

Add  $35.00  for  thipping,  hortdling  and  iruuranc*.  IllinoU  rm%\6mnH  p\mo%m  odd 
6%%  mIm  tax.  Add  $70.00  for  CANADA,  PUERTO  RICO,  HAWAIt,  ALASKA,  and 
APO-FF»0.  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES  EXCEPT  CANADA  A 
PUERTO  RICO.  All  ord«ri  must  b*  in  U.S.  dollar*.  Er>ctoa#  Caihlvr  Ch^k,  Morwy 
Ord«r  or  P«fr»onol  Check.  Allow  14  days  for  d«liv«rY,  2  to  7  days  for  phoo*  ordtrt, 
1  day  •xpr««s  malL  Prlc««  A  Availability  subject  to  char»9«  without  r>otk*. 
VISA  *  MASTJaCAUD  -  CO.P. Please  Coll  for  C.O.D.  Chorpe* 


COJMPUTER  DIRECT 

22292  N.  Pepper  Road,  Barrington  11.  60010 

CALL  (312)  382-5050  TO  ORDER 
We  Love  Our  Customers! 


6M  7  00  1 

SOUND  1  ,T-»^21"TT,  10,1 

HK  86  10 

SEL=SEL+CN1 : BRDX=12» 

KJ  20061 

DATA  2,2.5,7,2.5,3. 

0:NEXT  TT:NEXT  T 

PX+CNl : BRDY^10«PY-7 

3,6,3 

LO  7002 

FOR  V«10  TO  CN0  STEP 

EC  8620 

POKE  53252, BRDX+51 :F 

DC  20062 

DATA  3,3.5,6.3.5,4, 

-0.5:SOUND  CN1,254, 

OR  T=BRDY+15  TD  BRDY 

4,5,4,4,4.5,5 

10,V:SOUND  CN0, 255,1 

+  26:P0KE  3S4  +  MYBASEi- 

m 20063 

DATA  4. 5, -2, 2,5,5. 5 

0,V:POKE  710,V*CN4+1 

T, PEEK ( 384 +MYBASE+T) 

, -8, 2,5, 5.5 

25:NEXT  V               ' 

+3:N£XT  T 

CA  20070 

DATA  15, 2, 7, 2,8, 2. S 

m  7003 

FOR  T=l  TO  200:NEXT 

C6  8625 

POKE  PCOLR0, 80+481 (P 

,7 

T:PRINT  "PLAY  AGAIN" 

LAYER=CN1) 

NL  20071 

DATA  2.5,8,3,6,3,8, 

; : INPUT  A*: IF  A*="Y" 

LB  8630 

RETURN 

3,5,6,3.5,8 

THEN  RUN 

NH  8700 

REM  tCDESELECT  BLOCK 

Nl  20072 

DATA  4, 5, 4,8,4.5, 5, 

DO  7040 

GRAPHICS  CN0:END 

2  1 

4.5.8,5,4,5 

KB  B000 

REM  tCDRAW  A  PIECE  0 

PN  8710 

SEL=CN0: BRDY=10«SPY- 

06  20073 

DATA  8, 5. 5, 4, 5. 5, 8, 

N  THE  BOARD] D7030 

7:F0R  T=BRDY+15  TO  B 

6,3,6,8,6.5 

in  8010 

PIECE=PIECECPX,PYJ :L 

RDY+26:PDKE  384+MYBA 

OF  20074 

DATA  3,6,5,8,7,2,7, 

ET  CLR=CLR CPX, PY) 

SE+T,PEEK<38  4+MYBASE 

B, 7.5, 2,7. 5 

Iin8020 

IF  PIECE=CN0  THEN  RE 

+T)-CN3!NEXT  T 

Ci  20075 

DATA  8,8,1,8,8,8.5, 

TURN 

EE  8  720 

POKE  PCOLR0, Sa+48t (P 

1,8.5,8 

HI  8030 

ORIENT=ORIENT(PX,PY) 

LAYER=CN1 ) :RETURN 

JH  20076 

DATA  -8, 1,1,8 

BI  8040 

RESTORE  PIECEtl0+199 

KC  8900 

REM  C ETURN  OFF  SOUND 

PL  21000 

DATA  3,0,0,0, 10, 10, 

90 

33 

10 

m  8050 

BRDX-i2tPX+CN2: BRDY- 

WP  8910 

FOR  V=10  TO  CN0  STEP 

HA  2  I  0  1  0 

DATA  4,0, 10,5,0, 10, 

20«PY-14 

-0. 1 : SOUND  CNl, 254, 

10,2,4 

BAa060 

READ  DUMMY: COLOR  CLR 

10,V:SOUND  CN2,255, 1 

LP  21020 

DATA  4, 10, 0,0, 3, 10, 

Kl  8070 

FDR  II^^CNl  TO  DUMMY: 

0,V:PaKE  710,V*CN4+1 

6, 0, 10 

READ  X1,Y1,X2,Y2 

25:NEXT  V:RETURN 

OA  21030 

DATA  5, 10,0,0,6, 10, 

AO  B090 

IF  XKCN0  THEN  Xl=-X 

n  9000 

CX=12»PX+17:CY=20«PY 

10,-10,6,0,6 

1: COLOR  CN3 

+  4 

m 21040 

DATA  5,0, 10,0,0, 10, 

IQ  B100 

IF  0RIENT=CN1  THEN  P 

EH  9020 

FOR  JJ=^CN1  TD  13 

3,2,5,10, 10 

LOT  BRDX  +  Xl,BRDY-l-Yl< 

JN  9030 

Ni=SI  (JJ) +CX:N2  =  SI  (J 

AF  21050 

DATA  3, 10, 0, 0, 5, 10, 

CN2:DRAWT0  BRDX+X2,B 

J+13) +CY 

10 

RDY-*-Y2tCN2:NEXT  I  I  :  R 

LI  9040 

POKE  i632,Nl:PDKE  16 

PD  21060 

DATA  6,0,0,0, 10, -10 

ETURN 

33, N2:P0KE  1634, N2+5 

,0,10,10,-10,6,0,5 

CA  0  1  1  0 

IF  0RIENT=CN2  THEN  P 

:DUMMY=USR<1638) 

AC  21070 

DATA  1 , 2, 3, 4,5,0,6, 

LOT  BRDX+ (CN9-Y1 ) , BR 

flj  9045 

SOUND  CN2, N1*10, 8, 13 

7,4.3,3 

DY  +  X13ICN2:  DRAWTO  BRD 

-JJ 

JH  21080 

RESTORE  21070:FOR  I  1 

X+  (CN9-Y2>  , BRDY  +  X2»C 

O  9050 

NEXT  JJ 

=  CN1  TO  llsREAD  A:  A 

N2: NEXT  I  I : RETURN 

rp  9060 

RETURN 

(I  )  =A:NEXT  I  :  XX«=126 

LC  B120 

IF  0RIENT=CN3  THEN  P 

LO  9500 

FOR  JJ=1  TO  13 

: YY=CN0:COLOR  CN0 

LOT  BRDX+ (CN9-X1 ) , BR 

AH  9510 

SI  (aj>=SIN(JJ)»ja/2- 

PF  21090 

FOR  Is'CNl  TO  11:YY  = 

DY+ tCN9-Yl ) *CN2: DRAW 

10: SI (JJ+13) =C03 ( JJ) 

YY+15:  IF  A  (  I ) =CN0  T 

TO  BRDX+ (CN9-X2> , BRD 

»Ja/2-10 

HEN  NEXT  I 

Y+  tCN9-Y2)  »CN2; NEXT 
I  I : RETURN 

LH  9520 
DB  10000 

NEXT  JJ:RETURN 
DATA  2, 2, 1 , 4, 3, 4,3, 

KN21092 

FOR  KK=^CN0  TO  CNl  S 
TEP  0.5 

60  8130 

PLOT  BRDX-HYl  ,BRDY+ (C 
N9-X I ) *CN2: DRAWTO  BR 

AA  10010 

2,  1 

DATA  4,0,0.0,0,0,0, 

IK  21095 

RESTORE  A<l>tl0+209 
90 

DX  +  Y2, BRDY+  CCN9-X2>  * 

CN2 

SO  10020 

0,0,0,0,0,0,0,0,0,0 
DATA  2,3,2, 1,4,1,4, 

DH  21  100 

READ  DUMMY: FOR  J^CN 
1  TO  DUMMY:READ  X,Y 

JO8140 
KO  8150 

NEXT  II 

RETURN 

rP  10030 
AN  10040 

3,2 

DATA  1,0,0,0,0 

AH  2  1  1  1  0 

sFOR  K=CN0  TO  CNl 
IF  J=CNl  OR  X<CN0  T 

PJ  8200 

REM  [[ERASE  BLOCKED 

DATA  4,0,0,1,0,0,0, 

ym             r^            ■«■     ym             j-m             j^w     .^m              m              .ifh-     ..a 

HEN  PLOT  0.6*ABS(X) 

ED  8210 
BO  8220 

BRDX=12*PX+CNltBRDY= 
20tPY-14: COLOR  CN0 

FDR  VX=CN1  TO  6:PL0T 

LL  10050 
MB  10060 

0,  2,  3,0,0,  0,  0,  4,  0,  0 

DATA  1,1,2,3,4 

DATA  4,-1,3,0,3,4,- 

LP  21120 

+XX+KK+K. 1 . 2«Y+YY:G 

DTD  21130 

DRAWTD  0.6»X+XX+K+K 

BRDX+VX,BRDY: DRAWTO 

1,4,0,0,1,-1,1,2,0, 

2,-1 

DATA  4,0,0,2, 1,2,0, 

0,3,4.3,0,0,0. 1,4,0 

DATA  1,1,8,8,1 

DATA  6,5,1, 5, a, 2, 8, 

K, 1 . 2«Y+YY+KK/CN2 

»J  8221 

BRDX+VX, BRDY+19 
PLOT  BRDX+i2-VX, BRDY 
:DRAWTD  BRDX+12'VX,B 
RDY+19:NEXT  VX:RETUR 
N 

BK  10070 

LP  20000 
NB  20010 

BF  21  130 
HP  21140 

BB  21  150 

NEXT  K:NEXT  J:NEXT   I 

KK:NEXT  I 

FOR  K=l  TO  IsFOR  KK 

^51  TO  51 

PLOT  135  +  K,  13  0+KK: D 

CC  8300 

REM  CCHIGHLIGHT  BLOC 
K3  3 

NH  200  1  1 

8,8,3,8,5,1 

DATA  7,8.5, 1 ,2, B, 3, 

RAWTO  138+K, 130+KK: 
PLOT  136+K, 130+KKiD 

a  8310 

BRDX=12tPX+CNl :BRDY= 

6,8,8,7,6 

RAWTO  136+K, 135+KK 

10tPY-7 

:i   2^020 

DATA  1,2,4-5,7,4.5 

DJ  21  160 

PLOT  140  +  K,  135  +  KK:D 

ffO8320 

S* (BRDY+52a, BRDY+52S 

SI   20030 

DATA  6, 5,  2,  9, 5, 9,  5» 

RAWTO  140  +  K,  130  +  KK: 

)=CHR*<255> :S«<BRDY+ 

5,8,5,8, 1 ,5 

DRAWTO  142+K, 134+KK 

529,  BRDY^^539)=S$  <BRD 

EJ  2003  1 

DATA  1,5,5,2,5.2,5, 

: DRAWTO  144+K, 130+K 

Y+52S):P0KE  HPDS0,BR 

8, 1,5,9,5 

K: DRAWTD  144+K,135+  i 

DX  +  47 

fE  20040 

DATA  14,1,5,2,1.5,8 

KK 

PE832S 

POKE  53256, CNl 

,2.2.2,3,2.5,2 

JE  21  170 

NEXT  KK:NEXT  K 

m  8330 

IF  SEL^CN0  THEN  POKE 

Hfi  20041 

DATA  2.5,8.3,2.3,8, 

m 21 180 

RETURN 

PCDLR0, a8+48»  <PLAYE 

3.5,2,3.5,8 

LO  25000 

DATA  68CE6106AD6006 

R^CNl ) 

M 20042 

DATA  4,2,4,8,4,5,2, 

8D0006EE6106 

KP  8340 

RETURN 

4.5,8,5,2,5 

EH  25010 

DATA  AD6106BD010620 

HG  8400 

REM  CCUNHIGHLIGHT  BL 

OA  20043 

DATA  B. 5.  5. 2, 5. 5, 8, 

AE06AD6106 

ockj: 

6.2,6.8,6.5 

HF  25020 

DATA  CD6206D0E6606S 

ND  B410 

BRDY=10«PY-7 

08  20044 

DATA  2,6,5,8,7,2,7, 

CE6006EE6006 

CPB420 

S*  CBRDY  +  52B, BRDY  +  528 

8,7.5,2,7.5 

&N  25030 

DATA  AD6006SD0006AD 

)=CHR*tCN0) :S*CBRDY+ 

LH  20045 

DATA  8,-1.5,2,7.5,2 

62068D0106 

529, BRDY+539) =SS (BRD 

NA  20050 

DATA  4,2,2,7,2,7,2, 

FN  25040 

DATA  20AE06AD6006CD 

Y+52B) 

7,7,7,7,2,7 

6106D0E660 

KPB430 

RETURN 

GD  20051 

DATA  2,7,2,2 

LE  25045 

DATA  A9008D0406AD00 

EN  8600 

REM  C [SELECT  BLOCKD] 

m 20060 

DATA  8,2,2,7,2 

064A4A8D0306 

46     COMPUTEI     June  1987 


Hop  to  it! 


check  out  this 
Great  Software 


Design  pictures  and  graphics  quiddy  and 
precisely.  Unlike  other  drawing  FH-ograms, 
you  can  produce  exact  seated  output  on 
your  printer  Design  In  the  units  of  your 
drawing  problem  (feet,  miles,  meters,  etc.) 
and  send  hardcopy  to  most  printers.  Uses 
either  the  keyboard,  lightpen  or  1 351  mouse. 
Two  separate  work  saeens— transfer 
artwork  from  one  screen  to  the  other.  Place 
text  In  four  sizes  anywhere  In  the 
picture — three  extra  fonts  included:  Old 
English,  3-D  and  Tech.  "Try  Again"  allows 
you  to  undo  mistakes.  Draw  solid  or  dashed 
lines,  d rotes,  ellipses  at  any  angle,  rays  and 
boxes.  Design  fill  patterns,  fonts  and 
objects.  Cadpak  is  the  full-featured  design 
and  graphics  package  for  your  computer, 
for  C-64     $39.95  for  C-128    $59.95 


COBOL 

COBOL  is  the  most  wktely  used  commerdal 
programming  language  today.  COBOL  is  a 
language  that  is  common  to  many  com- 
puters. Most  computers  equipped  with  a 
COBOL  system  can  process  any  COBOL 
program  with  only  minor  revisions.  Now  you 
can  learn  the  COBOL  language  using  your 
Commodore,  COBOL  Is  easy  to  learn 
because  of  its  English-like  syntax.  COBOL 
is  designed  with  ease  of  use  in  mind 
perfect  for  beginners. 
Use  the  COBOL 
System's  inte- 
grated editor  to 
icreate        your 


COBOL  source.  Then  the  compiler  checks 
your  program's  syntax  and  immediately 
converts  it  into  an  executable  fdmn.  Indudes 
sample  programs  and  exercises  to  make 
learning  COBOL  even  easier  for  the  novice 
or  experienced  programmer, 
for  C-64     $39.95  for  C- 128    $39.95 


Super  Pascal 

Your  complete  system  for  developing 
applications  in  P  asca! .  A  complete  I  m  plemen- 
tation  of  standard  Pascal  (Jensen  and 
Wirth).  C-64  versran  has  a  high-speed  DOS 
(3X)  for  quick  and  efficient  use.  The 
extensive  editor  (source  induded)  contains 
added  features:  append,  search  and 
replace.  Includes  assembler  for  any  of  your 
machine  code  requirements.  Used  in 
hundreds  of  schools  to  teach  programming 
and  also  used  for  serious  development 
projects.  But  it  can  be  used  for  more  than 
just  learning  Pascal,  use  it  for  serious 
programming.  With  complete  graphic  library 
(source  Induded)  in  machine  language  for 
super-fast  execution.  Want  to  learn  Pascal 
or  develop  software  using  the  best  tod? 
Super  Pascal  is  your  first  choice, 
for  C-64     $59.95  for  C-128    $59.95 

RScal 

Learn  the  world's  second 
most  widely  used  language! 


. . .  and  SUPER  BOOKS! 


<A  ^  (u  c   ~  n><i> 

o)       eg 


Anatomy  of  ttiw  C-W 

Insktors  guidd  to  '64  internals. 
GrapKics,  sound.  I/O.  Kernal, 
momory  maps,  and  much 
mor«.  Complete  commented 
ROM  VsAlnqM.  300pp    $19.» 


Anatomy  of  th*  1541  Drfve 
Best  handbook  on  this  drive, 
explains  all  Filled  WTtti  nrvany 
examples  programs,  utilities 
Fully  commented  154t  ROM 
listings.  «OQpp    $19,95 


TrkkM  S  Tpa  for  ttm  C-S4 

Collection  of  easy-to-L^e  tech- 
niques: advanced  graphics, 
Jmproved  data  input,  CP/M, 
enhanced  BASIC,  data  hand- 
ling and  more.  275pp   $19.95 


0£0S  msfde  »n<t  Out 

Detailed  into  on  CEOS.  Add 
your  own  applications  to 
GEOS.  Edit  icons,  Constant 
display  clock,  Single-step 
thfough  memory.  $t9.95 


QEOSTHckMMndTlpm 

Collection  of  helptui  tech- 
niques for  all  GEOS  users 
Includes  font  editor,  machine 
language  monitor,  quick 
backup,  more.  $t99S 


H: 


INTERNALS 


SoflWJJB 


1571  INTERNALS 


PEEKS  &  POKES 


Soflwiic 


BASIC  7.0 
INTERNALS 


Abacus 


S  jJU  irc 


o --oH 
E£i^^ 

03  o  lO  c 

q5  E5  - 

0-0J3  O 


CO   ^^ 

^   ^   Vi 

O  wQ 


g 


C'IZa  INTERNALS 
Important  C-1 28  information. 
Covers  graphic  chps^  MMU. 
I/O,  80  column  graph  cs  and 
fully  commented  ROM 
listings,  more,  SOOpp  $19.95 


1S71  INTERNALS 
Essential  reference.  Internal 
drive  functions.  Explains 
various  disk  and  fite  formats 
Fully-commented  ROM 
listings  450pp  $19.95 


C-l2SWtCKSA  Tff^ 

Fascinating  and  practical  into 
on  tne  C-1 28  dO-col  hires 
graphics,  bank  switching, 
300  pages  of  useful  inform- 
al b  n  tor  every  on  e       $  1 9.95 


C-128  PEEKS  A  POKES 
Dozens  ot  programming 
quick- hitters,  techniques  on 
the  operating  system,  stad^, 
zero  page,  pointers,  and 
BAS*C.  240pp  $16.95 


C'123BAStC7Miniomah 

Get  all  the  inskJe  inlo  on 
BASIC  7.0.  This  exhaustive 
handbook  is  complete  with 
futly  commented  BASIC  7,0 
RO^  listings.  $24  95 


I 


^8 


OQ   g-  CL  .    r- 

M      QC  o  0) 

^        ?  A  ^ 
2  o  ^ 


DATA  A0271BAD01066D 

0306SD0306 

DATA  AD040667008D04 

06eS10EB 


CN  25050 

ND  25060 


IG  20020 
Nl  20030 


06881 

D 

ATA  _, 
5  I  B  I  5  ,  Q 

D 


lATA  1,2,4.  5,  7,  4.  5 
DATA  6, 5, 2, 9, 5, 9,5, 
"  1,8,1,5 


BD  2  005  1 

m 20060 

U 2006  1 


DATA  ^, , , ^, ^ 
DATA  8,2,2,7,2 
DATA  2,  2,  5,  7,  2,  5,  3, 

3,  6,  3 

DATA  3,3.5,6,3.5,4, 

4,  5,  4,  4,  4.  5,5 

DATA  4.5,-2,2,5,5.5 

,   8, 2, 5,5. ^ 

DATA  15,2, 7, 2, 0, 2. 5 

,7 

noTa  ->  =;  Q  '^  iC  "K     Q 


flA  2  1  0  1  0 

LP  21020 

Oft  2  1030 

Y.n  21040 

AF  2105 

PD  21060 


10,2,4 

DATA  4,    

6, 0, 10 

DATA  5, 10, 0, 0, 6, 10, 

10,-10,6,0,6 

DATA  5, 0, 10, 0, 0, 10, 

3,2,5,10,10 

DATA  3, 10, 0, 0, 5, 10, 

10 


LE  26060 


Program  4:  Apple  II  Laser 
Chess 

Version  by  Tim  Victor,  Editorial 
Programmer 

8D  100  GOTO  510 

99  110  GOSUB  130:  IF  I  =  SP  THEN 

330 
15  120  RETURN 
3E  130  Y  =  yU):X  =  XdJ:  IF  BD  C 

I>  =  -  1  THEN  200 
9£  140  GOSUB  180:  IF  X  <  >  2  t  I 

NT  <X  /  2)  THEN  C  ==  1  -  C 

17  150  C  =^  C  +  2  *  (I  -  2  *  INT 

(I  /  2)  ) 
59  160  CALL  25306,  SNCP)  4^  D,C,X, 

Y 
IF  170  RETURN 
ft3  180  C  =  CCBDCI)>:P  -  P(BD(I)) 

:D  =  D(BD(n  )  :  RETURN 
23  190  RETURN 
E2  200  CALL  25309,  X,Y 
?7  210  IF  X  =  4  AND  Y  =  4  THEN  H 

COLaR=  6:  HPLQT  146,74  TO 
146,91 
li  220  RETURN 
ID  230  HCOLOR=  4:  IF  I  <  >  2  »  I 

NT  (I  /  2)  THEN  HCOLOR*  7 
4i  240  LX  =  42  +  21  *  X(I)  :LY  = 

2  +  IS  »  Yd)  I  ON  D  +  1  G 

OTO  250,260,270,280 
£1  250  HPLOT  LX  +  9,LY  +  8  TO  LX 
+  9,Ly  +  17  TO  LX  +  10, L 

Y  +  17  TO  LX  +  10, LY  +  8: 
RETURN 

5F  260  HPLOT  LX,LY  +  8  TO  LX  +  1 
0,LY  +  B  TO  LX  +  10,  LY  + 
9  TO  LX,LY  +  9:  RETURN 
kd   270  HPLOT  LX  +  9,LY  TO  LX  +  9 
,LY  +  9  TO  LX  +    10, LY  +  9 
TO  LX  +  10, LY:  RETURN 
11  280  HPLOT  LX  +  9,LY  +  8  TO  LX 
+  20, LY  +  a  TO  LX  +  20,L 

Y  +  9  TO  LX  +  9,LY  +  9:  R 
ETURN 

A«  290  HCOLOR=  7:  IF  CP  =  2  »  IN 

T  (CP  /  2)  THEN  HCOLOR'=  4 

7F  300  PX  =  43  +  X(CP)  t  21;PY  = 

3  +  Y(CP)  t  IBs  HPLOT  PX 

,PY  TO  PX  +  18, PY  TO  PX  + 
18, PY  +  15  TO  PX,PY  +  15 
TO  PX,PY 
B8  310  IF  CP  ==  SP  THEN  BOSUB  330 
J  7  320  RETURN 

ftD  330  HC  =  7:X  =  X(SP)  <  21:Y  = 
YCSP)  «  18:  IF  SP  =  2  • 

INT  (BP  /  2J  THEN  HC  *=  4 
CB  340  IF  SP  =  CP  THEN  HC  =  11  - 

HC 
5?  350  HCOLOR=  HC:  FOR  J  =  0  TO 

Is  FOR  K  >=  0  TO  IsPX  »"  43 
+  X  +  J  «  18:PY  =  2  +  Y 

+  K  «  16:  HPLOT  PX,PY  TO 

PX,PY  +  1:  NEXT  :  NEXT  : 

RETURN 
D8  360  eOSUB  1302  CALL  25312,  SN( 

P)  +  D,C,X,Y 
Zl  370  RETURN 
42  380  R  =  INT  (  RND  (1)  «  Sl>: 

IF  BD(R>  <  >  -  1  OR  R  =  4 

0  THEN  3B0 
13  390  IF  I  =  LI  THEN  LI  ==  R 
33  400  IF  I  =  L2  THEN  L2  =  R 
6E  410  BD(R)  =  BD(I):BD(I)  =  -  1 

si  «  R:  GOSUB  110 

18  420  RETURN 

E5  430  VTAB  7:  HTAB  2:  NORHAL  : 

IF  MS  =  1  THEN  INVERSE 
Af  440  PRINT  "FIRE":  NORMAL  :  IF 

MS  *  2  THEN  INVERSE 
D5  450  VTAB  9:  HTAB  2:  PRINT 


SS":  NORMAL 


"PA 
IF  MS  -  3  T 


17  460 

A?  470 

n  4B0 

49  490 

66  500 

Bft  510 

F6  520 


E4  530 

FD  540 

91  550 

E9  560 

FE  570 

FZ  580 

E9  590 

2A  600 

£4  610 

BB  620 

DB  630 

lA  640 


7s 
2) 

H 
15 


TEXT 
B  12: 
TM>  ": 

INT  ' 
B  7: 


HEN  INVERSE 

VTAB  11:  HTAB  2:  PRINT 
UIT":  NORMAL  :  RETURN 
PX  =  44  +  21  *  X(I) :PY 
4  +  18  «  YCI> :  HCOLOR= 

IF  I  <  >  2  t  INT  CI  / 

THEN  HCOLDR*  4 
R  =  6:  FOR  K  =  1  TO  18: 
PLOT  PX,PY  +  R  TO  PX 
,PY  +  R:R  =  R  +  7  -  16 
(R  >  S) :  NEXT  s  RETURN 
VTAB  24:  HTAB  14:  PRINT  " 
PRESS  A  KEY"; 
GET  A*:  HTAB  14:  PRINT  SP 
C(  H>;s  RETURN 
LOMEM:  32768:  PRINT  CHR* 
(21):  DIM  BD(a0) ,TD(7,3), 
X (S0) ,Y(80) ,P(63> ,C(63)  ,D 
C63> 

HOME  :  VTAB  4:  HTA 
PRINT  "LASER  CHESS ( 
VTAB  7:  HTAB  12:  PR 
'COPYRIGHT  19B7";  HTA 
PRINT  "COMPUTE!  PUBL 
I CAT IONS,  INC" 
VTAB  10:  HTAB  10:  PRINT  " 
ALL  RIGHTS  RESERVED" 
PRINT  CHR*  <4);"BL0AD  LAS 
ER-ML" 
CALL  25315:  FOR  I  =^  24400 

TO  I  +  7:  POKE  I, 128:  NE 
XT 

POKE  6,80:  POKE  7,95;  IF 
PEEK  (191  «  256)  =  76  THE 
N  PRINT  CHR*  (4)"pr#a*600 
0":  GOTO  580 

POKE  54,0:  POKE  55,96:  CA 
LL  1002 

FOR  I  =  0  TO  80:  Yd)  =  IN 
T  d  /  9)  :X(I)  =  I  -  Yd) 

«  9:  NEXT 
FOR  I  =  0  TO  63:Cd)  =  IN 
T  d  /  32)  :Pd)  =  INT  (  (I 

-32ICd>)  /4)sDd)  = 

I-32*Cd)-4«Pd) 
:  NEXT 
POKE  28,128:  POKE  230,32: 

CALL  62454:  POKE  49239,0 
:  POKE  49232,0:  POKE  4923 
4,0 
RESTORE  :  FOR  I  =  0  TO  8: 

READ  SNd)  :  NEXT 
FOR  I  =  0  TO  17:  READ  BD ( 
I):  NEXT 

FOR  I  =  18  TO  62:BD(I)  =* 
-  1:  NEXT 

I  =  63  TO  80:  READ  BD 
NEXT 


FOR 
d)  : 


CA  650  FOR  P  -  0  TO  7:  FDR  D  =  0 
TO  3:  READ  TD(P,D);  NEXT 

:  NEXT 


71 

660 

CP  ^    0:SP  =  -  1:PP  s  1:MC 
-  2:L1  =  3:L2  =  77 

BD 

670 

FOR  I  =  0  TO  80:  GOSUB  11 
0:  NEXT 

CB 

6B0 

OF  =  0:MS  =  0s Kl  =  0:K2  = 
0:  GOSUB  430 

64 

690 

IF  DF  THEN  600 

25 

700 

IF  Kl  +  K2  =  0  THEN  750 

7B 

710 

VTAB  23:  IF  Kl  «  K2  THEN 
HTAB  18:  PRINT  "DRAW":  GO 
TO  740 

22 

720 

IF  Kl  THEN  HTAB  14;  PRINT 

"ORANGE  WINS":  GOTO  740 

12 

730 

HTAB  15:  PRINT  "BLUE  WINS 

9F  740   GOSUB   490:    GOTO   600 

7C   750    IF    MC    =    2    THEN    PP    =    1    -    P 

P;MC    =   0:MF    =    0:    VTAB    20: 

HTAB   2:    PRINT    MID*     ("3    1 

C    C", PP    t    3    +    1,3) :     IF   SP 

<     >    -    1    THEN    I    =    SP:SP   = 

-    1:    GOSUB    110 


48     COMPUTEI     June  1937 


-  1  THEN  920 

=  -  1  THEN  RETU 


5F  770  GOSUB  290 

F4  790  GET  CS:C  =  ASC  (C*):K  =  ( 

C  =  11)  +  2  t  (C  =  21)  + 

3  «  (C  =  10)  +  4  »  (C  =  8 

)  +  5  *  CC  =  13)  +  6  •  (C 

=  44  DR  C  =  60)  +  7  »  (C 

-  46  OR  C  =  62)  -h    B    t     (C 
==  27)  :  IF  C  =  0  THEN  780 

21  790  OP  =  CP:  ON  K  GOSUB  800,8 

20,840,860,880, 1130, 1170, 

1210:1  =  OP:  GOSUB  110;  G 

OTO  690 
B9  800  IF  CP  >  8  THEN  CP  =  CP  - 

9 
Ifl  810  RETURN 
49  Q20  IF  X(CP)  <  8  THEN  CP  =  CP 

+  1 
IE  830  RETURN 

72  840  IF  CP  <  72  THEN  CP  =  CP  + 
9 

22  850  RETURN 

56  860  IF  X<CP)  >  0  THEN  CP  =  CP 

-  1 

26  870  RETURN 

26  880  IF  SP  <  > 

20  890  IF  BD(CP) 

RN 
94  900  I  -  CP:  GOSUB  180:  IF  PP 
=  C  THEN  SC  =  C:SI  =  P:SD 
»  D:SP  =  CP 
IB  910  RETURN 

5B  920  YM  =  Y(CP)  -  Y(SP):XM  =  X 

(CP)  -  X(SP):I  =  SP:  GQSU 

B  1B0:DM  =  (D  <  >  SD) :  IF 

ABS  (XM)  +  ABS  (YM)  +  DM 

+  MC  >  2  THEN  RETURN 

CB  930  IF  CP  =  SP  THEN  1120 

n   940  IF  ABS  (XM)  =2 

P  +  XM  /  2)  <  > 

+  XM  /  2 
RN 
5F  950  IF  ABS  (YM)  =  2 
P  +  YM  /  2  «  9) 
R  SP  +  YM  /  2  * 
HEN  RETURN 
DS  960  IF  YM  AND  XM  AND  (BDCSP  + 
YM  t  9)  <  >  -  1  OR  SP  + 
YM  »  9  =  40)  AND  (BDCSP  + 
XM)  <  >  -  1  OR  SP  +  XM  = 
40)  THEN  RETURN 
E9  970  IF  CP  <  >  40  THEN  1000 
E9  980  IF  MF  <  >  2  THEN  MF  ==  2:  I 
=  SP:  GOSUB  380:  GOTO  11 
20 
2B  990  RETURN 
98  1000  IF  BD(CP)  =  -  1  THEN  109 

0 
4E  1010  IF  (SI  <  >  0  AND  SI  <  > 

6)  OR  MF  =  3  THEN  1070 
4A  1020  IF  BDCCP)  =  0  THEN  Kl  = 
1 

57  1030  IF  BD(CP)  =  32  THEN  K2  = 

1 
CA  1040  IF  CP  =  L0  THEN  L0  =  -  1 
Li  THEN  LI  =  -  1 
GOTO  1090 
2  AND  MF  <  >  1  T 
HEN  MF  =  1:1  =  CP:  BOSUB 
3B0:  GOTO  1090 
Fl  1080  RETURN 
7E  1090  BD(CP)  ^  BD(SP>:  BDCSP)  = 

-  1 

17  1100  IF  SP  =  LI  THEN  LI  =  CP 
2t    1110  IF  SP  =  L2  THEN  L2  =  CP 
Dl  1120  I  =  SPsSP  =  -  Is  GOSUB  1 
10;  MC  =  MC  ■••  ABS  (XM)  + 
ABS  CYM)  +  DM:  RETURN 
4F  1130  IF  SP  =  -  1  THEN  RETURN 
3D  1140  I  =  SP:  GOSUB  180:  D  =  D 
-  1:  IF  D  <  0  THEN  0  =  S 
N(SI  •*•!)-  SN(SI)  -  1 
29  1150  BDCSP)  =  SC  t  32  +  P  *  4 
+  D:  IF  I  <  >  CP  THEN  G 


AND  (BD(S 
-  1  OR  SP 

40)  THEN  RETU 

AND  (BD(S 
<  >  -  1  G 
9  »  40)  T 


D3  1050  IF  CP  ^ 
8F  1060  MF  =  3: 
32  1070  IF  SI  ^ 


OSUB  110 
EB  1160  RETURN 

7F  1170  IF  SP  =  -  1  THEN  RETURN 
CO  1180  I  =  SP:  GOSUB  180:0  =  D 

-hi:  IF  D  =  SN(SI  +  1)  - 
SN(SI)  THEN  D  ^  0 
39  1190  BD(SP)  =  SC  «  32  +  P  $  4 
+  D:  IF  I  <  >  CP  THEN  G 

OSUB  110 
D5  1200  RETURN 
03  1210  MS  =  1 

12  1220  GOSUB  430:  GET  C*:  IF  C* 

=  CHR*  (21 >  OR  C*  =  CHR 

*  (10)  THEN  MS  =  MS  +  1 

-  3  »  (MS  =  3) 

43  1230  IF  C$  =  CHR*  (8)  OR  C*  = 
CHR*  (11)  THEN  MS  =  MS 

-  1  +  3  «  (MS  *  1) 

H    1240  IF  C*  =  CHR*  (27)  THEN  1 

270 
31  1250  IF  C*  <  >  CHR*  (13)  THEN 

1220 
BD  1260  ON  MS  GOSUB  1280,1590,16 

10 
43  1270  MS  =  0:  GOSUB  430:  RETUR 

N 
34  1280  I  =  (PP  -  0)  *  LI  +  CPP 

=1)  «  L2!  IF  I  =  -  1  OR 
MF  -  4  THEN  RETURN 
IF  1290  MF  =  4:MC  =  MC  +  1:Z  =  F 

RE  (0) 
AC  1300  LD  =  BD(I)  -  32  *  PP  -  4 

: LB*  =  CHR*  ( I ) : LX*  =  " " 

:EX*  ~  ""sSX*  =  "" 
SB  1310  FOR  2  =  0  TO  1  STEP  0:  0 

N  LD  +  1  GOTO  1320,1340, 

1360, 1380 
ift  1320  D  =  2:J  =  I  -  9:  IF  I  > 

B  AND  I  <  >  49  THEN  1400 
DO  1330  GOSUB  230:  BOTO  1500 
6F  1340  D  =  3:J  =  I  +  1:  IFX(I) 
<  >  8  AND  I  <  >  39  THEN 
1400 
E5  1350  GOSUB  230:  GOTO  1500 
97  1360  D  =  0:J  =  I  +  9:  IF  I  < 

72  AND  I  <  >  31  THEN  140 

0 
ED  1370  GOSUB  230:  GOTO  1500 
5fl  1380  D=1:J^I-1:  IFX(I) 

AND  I  <  > 
F5  1390  GOSUB  230: 
EE  1400  GOSUB  230:D  =  LD:  I  ^  J: 

QOSUB  230 
i9  1410  I*  =  CHR*  (I):LB*  =  LB* 

+  I*s  IF  BD(I)  -  -  1  THE 

N   NEXT 
flC    1420   GOSUB    180: LT    =   LD    -    D:LT 
=    TDCP,LT    +    4    «     (LT    <    0 

) ):  IF  LT  =  -  1  THEN  EX* 
=  EX*  +  I*:  GOSUB  S60:D 
=  LD:  GOSUB  230:  GOTO  1 

500 
E7  1430  IF  LT  =  4  THEN  LX*  =  LX* 
+  I*  +  CHR*  (D  "  1  +  4 

*  (D  =  0)):LT  =  1 

F9  1440  IF  P  <  >  3  OR  LT  THEN  14 

90 
Dl  1450  IF  5X*  =  ""  THEN  1480 
3D  1460  FOR  J  =  1  TO  LEN  (SX*>  : 

IF  I*  =  MID*  CSX*,J,1)  T 

HEN  J  »  999 
41  1470  NEXT  ;  IF  J  -  1000  THEN 

1500 
Bfl  1400  SX*  =  SX*  +  I* 
7fl  1490  LD  =  D  +  LT:LD  =  LD  -  4 

»  (LD  >  3):  NEXT 

13  1500  IF  LX*  <  >  ""  THEN  I  -    A 

SC  (LX*);LD  =  ASC  (  MID* 
CLX»,2)):LX*  «  MID*  (LX 
♦,3):  NEXT 
20  1510  Z  =  1:  NEXT  t    GOSUB  490: 

IF  EX*  =  ""  THEN  1570 
AS  1520  FOR  J  =  1  TO  LEN  (EX*)  :  I 


41  THEN  1400 
GOTO  1500 


=  ASC  (  MID*  (EX*, J) ) : 

GOSUB  470:  IF  BDCl)  «  0 

THEN  Kl  =  1 
31  1530  IF  BDCI)  =32  THEN  K2 

1 
29  1540  IF  I  ^  LI  THEN  LI  =  ^ 
fiE  1550  IF  I  =  L2  THEN  L2  =  - 
F2  1560  BD(I)  =  -  1:  NEXT 
BB  1570  FOR  B  =  1  TO  LEN  (LB*) 
=  ASC  <  MID*  (LB*,S)) ! 

GOSUB  110:  NEXT 
n    1580  RETURN 


CE 


>  -  1  THEN  I  =  S 
1:  GOSUB  110 
RETURN 
HTAB  8:  INVERSE 
NORMAL  : 


1590  IF  SP  < 

P:SP  =  - 

#r  1600  MC  =  2: 

DS  1610  S/TAB  24 

:  PRINT  "Q 
PRINT  "UIT  "; 
F£  1620  INVERSE  :  PRINT  "R";:  NO 
RMAL  :  PRINT  "ESTART  OR 

A4  1630  INVERSE  :  PRINT  "C";:  NO 
RMAL  :  PRINT  "ANCEL";:  G 
ET  C*:  IF  C*  =  "R"  OR  C* 
m    "r"    THEN  QF  *=  1:  RETU 
RN 
A2  1640  IF  C*  <  >  "Q"  AND  C*  <  > 
"q"  THEN  HTAB  8:  PRINT 
SPCC  23);:  RETURN 
6D  1650  TEXT  :  HOME  :  END 
F9  1660  DATA  0,1,5,6,10,12,14,18 

,22 
9»  1670  DATA  29,29,16,6,0,8,17,3 

0,30 
65  1680  DATA  30,26,26,12,20,21,2 
6,26,29 
1690  DATA  63,56,56,53,52,46,5 

6,56,60 
1700  DATA  60,60,49,40,32,36,4 
8,63,63 
FC  1710  DATA  -1,-1,-1,-1 
1720  DATA  -1,-1,-1,-1 
1730  DATA  0, 1,2,3 
1740  DATA  -1,0,4,0 
1750  DATA  3,2, 1,0 
1760  DATA  2, 1,0,3 
1770  DATA  -1,-1,0,-1 


2C 


flF 


01 
F3 
42 
32 
El 
95 
79    1780    DATA    -1,-1,1,0 

Program  5.  LASER.ML 

Please  refer  to  the  "'Apple  MIX"  articie 
elsewtiere  in  this  issue  before  entering  the 
following  program. 


6000: 

DQ 

78 

85 

45 

86 

46 

84 

47 

ED 

6008: 

A6 

07 

0A 

0A 

B0 

04 

10 

3E 

B3 

6010: 

30 

04 

10 

01 

E8 

EB 

0A 

86 

81 

6018: 

IS 

IB 

65 

06 

85 

lA 

90 

02 

31 

6020: 

E6 

IB 

A5 

28 

85 

08 

A5 

29 

13 

6028: 

29 

03 

05 

E6 

85 

09 

A2 

08 

EA 

6030: 

A0 

00 

Bl 

lA 

24 

32 

30 

02 

65 

603S: 

49 

7F 

A4 

24 

91 

08 

E6 

lA 

E8 

6040: 

D0 

02 

E6 

IB 

AS 

09 

IB 

69 

63 

6048: 

04 

85 

09 

CA 

D0 

E2 

AS 

45 

DC 

6050; 

A6 

46 

A4 

47 

58 

4C 

F0 

FD 

D2 

605B: 

80 

FC 

E6 

E6 

FE 

E6 

E6 

80 

C5 

6060: 

80 

BE 

E6 

E6 

BE 

E6 

FE 

80 

6C 

6068: 

80 

BC 

E6 

86 

86 

E6 

BE 

80 

AB 

6070: 

80 

BE 

E6 

E6 

E6 

E6 

BE 

80 

3D 

6078: 

80 

FE 

86 

86 

BE 

86 

FE 

80 

01 

6080: 

80 

FE 

86 

86 

BE 

86 

86 

80 

18 

6088; 

80 

BC 

E6 

86 

F6 

E6 

BE 

80 

4F 

6090: 

80 

E6 

E6 

E6 

FE 

E6 

E6 

80 

78 

6098: 

80 

9B 

98 

98 

98 

98 

98 

80 

35 

60  A0: 

80 

E0 

E0 

E0 

E0 

E6 

BC 

80 

A0 

60  A8: 

80 

E6 

E6 

B6 

9E 

E6 

E6 

80 

8A 

60B0: 

80 

B6 

86 

86 

86 

86 

FE 

80 

59 

60BB: 

80 

E6 

FE 

E6 

E6 

E6 

E6 

80 

E2 

60C0: 

80 

BE 

E6 

E6 

E6 

E6 

E6 

80 

DD 

60Ce: 

60 

BC 

E6 

E6 

E6 

E6 

BC 

80 

11 

60D0: 

80 

BE 

E6 

E6 

BE 

86 

86 

80 

6A 

60Da: 

S0 
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Save  Your 
Copies  of 
COMPUTE! 

Protect  your  bock  issues 
of  COMPUTE!  in  durable 
binders  or  library  cases. 
Each  binder  or  case  is 
custom-made  in  flag-blue 
binding  with  embossed 
white  lettering.  Each  holds 
a  year  of  COMPUTE!.  Or- 
der several  and  keep 
your  issues  of  COMPUTE! 
neatly  organized  for  quick 
reference.  (These  binders 
moke  great  gifts,  too!) 


Binders  Cases: 

$9.95  each;  $7.95  each; 

3  for  $27,95;  3  for  $21,95; 

6  for  $52.95  6  for  $39.95 

(Please  add  $2.50  per  unit 
for  orders  outside  the  U.S.) 

Send  in  your  prepaid  order 
with  the  attached  coupon 


Mcif  to;  Jesse  Jones  Industries 
P.O  Box  5120 
Dept.  Code  COTE 
Philadelphia,  PA  19141 


Please  send  me . 


COM- 


PUTE! D  coses  D  binders. 
Enclosed  is  my  check  or  money 

order  for  $ .  (U.S.  funds 

only.) 

Name ^^ -  .-^ _^ 

Address . 

City 

State 


.Zip. 


Satisfaction  guaranteed  or  money 

refunded. 

Please  allow  4-6  weeks  for  delivery. 
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BE  AWINNER 
N  OCTOBER. 

Join  Computer  Leammg  Month 


WHY  A  COMPUTER 
LEARNING  MONTH? 

Learning  with  computers 
is  giving  America's  youth  the 
winning  edge.  Never  before 
has  there  been  such  an  excit- 
ing event  devoted  exclusively 
to  bringing  parents,  teachers 
and  kids  together  for  amonth- 
long  celebration  of  learning 
'witii  software  and  computers. 
Ifs  called  Computer  Learning  Month,  and  if s 
happening  this  October.  Computer  Learning 
Month  is  so  important  that  a  commemorative 
bill  has  been  introduced  into  both  Houses  of 
Congress  declaring  October  1987  as  Computer 
Learning  Month.  Sponsored  by  major  educa- 
tional software  and  computer  companies  and 
supported  by  national  educational  organiza- 
tions and  State  Departrhents  of  Education, 
Computer  Learning  Month  wiU  be  an  event  in 
which  everyone  will  be  a  winner  -  an  event  you 
won't  want  to  miss. 

EVERYONE  WILL  BE  A  WINNER . . . 
Contests!  Contests!  Contests!  Thousands 
of  dollars  worth  of  great  prizes  will  be  given 
away  in  October,  Essay  and  art  contests  for 
families  and  kids.  Lesson  plan  contests  for 
teachers.  And  if  you  are  a  prize  winner,  your 
school  will  be  a  prize  winner,  too. 

Exciting  programs  for  families.  Now  par- 
ents can  learn  how  to  help  their  children  benefit 
from  using  a  computer,  whether  they  own  one 
or  notWe'regivingawayafree booklet  designed 
just  for  parents. 'Hiere  will  be  fairs  and  special 
events  sponsored  by  local  retailers.  And  we  know 

Computer  Learning  Month  1987  is  Sponsored  by:  Software  Publishers 
Association,  Advanced  Ideas,  Britannica  Software  (Publishers  of  DesignWare,* 
EduWare,*  Blue  Chip  Software™),  Broderbund  Software/"  COMPUTE! 
Publications,  Inc./ABC  Publishing,  Davidson  and  Associates,  Inc.,  The  Learning 
Company,  Mindscape,  Inc.,  Random  House  Media,  Scholastic,  Inc.,  Spinnaker 
Software,  Springboard  Software,  Inc.,  Weekly  Reader  Family  Software. 


schools  will  be  hosting  special  parent  nights. 

A  month  full  of  activities  for  teachers. 

Teachers  can  join  in  the  celebration  easUy  and 
learn  new  ways  to  help  their  students  benefit 
from  using  computers.  Every  teacher  can 
receive  a  celebration  poster,  chock-full  of  lesson 
plan  ideas,  activities  and  much  more. 

IT'S  EASY  TO  BE  A  WINNER. 

Just  clip  this  coupon  and  send 
it  in  today  to  be  a  part  of 
this  national  event. 
Well  send  you 
everything  you 
need  so  you  can  be^ 
a  winner  in  Computer* 
Learning  Month. 
Don't  delay.  We  must 
receive  your  coupon  by\ 

Julyl, 

1987. 


Giving  America's 
Youtli  the  Winning  Edge. 

I 1 

YES!  I  WANT  TO  BE  A  WINNER 
BV  OCTOBER! 

D  Please  send  me  contest  rules. 
D  Please  add  my  name  to  the  Computer  Learning  Month 
Mailing  List 

I  am  a  D  teacher  D  parent  D  student 

I  own  a  computer  □  yes □  no 


NAMF 

type  of  computer 

SHHOOT. 

ADDRF.Sft 

CTTY 

STATK                  7.]? 

PHONE 

Mail  Coupon  to :  Computer  Learning  Month 
EO.  Box  19763 
Washington,  D.C.  2003G-0763 


L 


(202)452-1600 


J 


"^^ 


Readers  Feedback 


The  Editors  and  Readers  of  COMPUTE! 


//  you  have  any  questions,  comments,  or 
suggestions  you  would  like  to  see  ad- 
dressed in  this  column,  write  to  "Readers' 
Feedback/'  COMFUTEl  P.O.  Box  5406, 
Greensboro,  JVC  27403.  Due  to  the  volume 
of  mail  we  receive,  we  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questions. 


Rooting  Around 

I  have  a  question  about  math  on  my 
Commodore  128. 1  know  how  to  get  the 

computer  to  give  square  roots  (with  the 
SQR  function),  but  how  do  I  get  other 
roots?  For  example,  how  do  1  get  the 
fifth  root  of  7S7 

Neal  Hatton 

Although  your  question  refers  to  BASIC 
7,0  on  a  Commodore  computer,  the  an- 
swer applies  to  most  computers  with 
BASIC,  You  can  take  advantage  of  the  fact 
that  the  fifth  root  of  78  is  the  same  as  78 
raised  to  the  1/5  power.  Try  this: 

ROOT  =  78T(l/5)  :  PRINT  ROOT 

You  can  check  your  answer  like  this: 

PRINT  ROOTtS 

You'll  get  a  number  near  78.  The  number 
is  slightly  off  because  of  the  limited  accu- 
racy of  the  exponentiation  algorithm, 

Applesoft  Memory 
Management 

I  have  written  an  8K  program  in  Apple- 
soft BASIC  and  I  need  to  use  hi-res 
graphics  page  1,  but  my  program  inter- 
feres with  this  page.  Can  you  tell  me 
how  to  move  my  program  into  the  open 
area  above  page  1? 

].  Larry  Gaither 

For  a  program  stored  on  disk  with  the 
name  PROGRAM,  include  the  following 
as  the  first  line  of  the  program: 

5  IF  PEEK  (104)064  THEN  POKE104 
,64 -POKE  16384,0: PRINT  CHR»(4 

) "LOAD  PROGRAM" 

When  you're  running  a  program  that 
uses  only  the  text  screen,  you  have  36,348 
bytes  of  memory  available  for  storing  the 
program  and  all  its  variables.  But  using 
hi-re$  screen  I  limits  your  program  a7id  its 
numeric  variables,  which  are  normally 


stored  before  the  screen  in  memory,  to 
6140  bytes.  String  variables,  which  are 
stored  after  hi-res  screen  memory,  have 
22,016  bytes  available.  The  worst  part  is 
that  Applesoft  BASIC  won't  tell  you  when 
your  program  and  variables  fill  up  their 
area,  as  you've  no  doubt  already  discov- 
ered. If  you  move  your  program,  all  the 
code  and  variables  will  be  stored  in  the 
larger  area  above  the  screen.  (Since  Ap- 
plesoft uses  4  bytes  to  indicate  the  start 
and  end  of  program  storage,  you'll  get 
only  22,012  usable  bytes.) 

Short  programs  (less  than  6K)  which 
use  large  array  variables  might  work  bet- 
ter if  you  moved  only  the  numeric  vari- 
ables, leaving  the  program  alo7w  in  the 
lower  area.  The  commafid  to  do  this  is 
LOMEM:  16384.  If  the  program  permits, 
you  might  also  try  switching  to  hi-res 
page  2.  When  using  this  page,  the  memory 
area  before  the  screen  is  14,332  bytes  long; 
the  area  after  the  screen  is  13,824  bytes 
long.  For  larger  programs,  the  numeric 
variables  can  be  moved  to  the  second  area 
with  the  command  WMEM:  24576, 


What  You  See  Is  Not... 

Why  doesn't  this  program  work  on  my 
Commodore  computer? 

10  A  =  SQR(9) 

20  IF  A  =  3  THEN  GOTO  10 

30  PRINT  A 

When  I  run  this  program,  it  falls 
through  to  line  30,  printing  the  value  of 
A,  rather  than  branching  back  to  line  10 
as  you  would  expect.  Line  30  shows 
that  A  is  equal  to  3,  so  why  doesn't  the 
IF  test  work? 

Christoph  Khouri 

There  are  two  causes  for  this  discrepancy: 
the  way  that  the  SQR  function  computes  a 
square  root  and  the  way  that  the  computer 
rounds  off  some  tiumbers,  SQR  derives  the 
square  root  of  a  number  by  finding  the 
number's  natural  logarithm  and  then  di- 
viding that  quantity  by  2.  The  result  is 
accurate  enough  for  most  practical  pur- 
poses, but  in  this  case,  it  yields  a  number 
that  is  very  close  to  3 — but  not  exactly  3, 
When  it  stores  the  result  ofSQRO)  in 
the  variable  A,  the  computer  holds  the 
number  ivith  a  considerable  degree  of  ac- 
curacy, including  the  very  small  fraction 
that  prevents  the  result  from  being  exactly 


3.  The  IF  test  in  line  20  compares  the 
number  3— which  is  exactly  3— with  the 
result  ofSQRO),  which  is  a  little  bit  off. 
Sirtce  the  tivo  values  aren't  exactly  the 
same,  the  IF  test  fails,  and  the  computer 
proceeds  to  litje  30, 

In  that  case,  you  tnight  ask,  why  does 
the  PRINT  statejnent  in  line  30  display 
exactly  3  instead  of  some  fractional  value? 
PRINT  is  generally  accurate,  but  it 
rounds  off  very  small  fractions.  This  isn't 
a  defect  in  the  computer,  but  simply  a 
consequence  of  the  fact  that  some  frac- 
tions can't  be  represented  with  complete 
precision  in  a  given  numbering  system. 
For  instance,  in  decimal  rwtation,  the 
fraction  Vj  is  represented  as  ,33333333... 
ivith  the  3s  carried  out  an  infinite  number 
of  places.  In  this  case,  the  fractional  com- 
ponent of  the  result  is  so  small  that 
PRINT  routids  it  off  rather  than  attempt- 
ing to  represent  it. 

Similar  anomalies  occur  in  every 
version  of  BASIC.  Fortunately,  few  of 
them  cause  any  real  probletJis  unless  you 
are  doing  serious  math  which  requires  a 
high  degree  of  precision. 


Atari  Miscellany 

I  have  a  few  questions  about  Atari  com- 
puters. What  does  the  XIO  statement 
do,  and  what  is  its  syntax?  How^  can  I 
simulate  the  MOD  function?  How  can  I 
make  cartridges  for  the  Atari  VCS  video- 
game machine  work  on  my  computer? 

D,  Botha 

The  XIO  statemerU  is  a  general  I/O  (In- 
put/Output) statement.  Atari  BASIC  al- 
ready has  many  I/O  statements  such  as 
OPEN,  CLOSE,  GET,  and  PUT,  but  there 
are  some  tasks  that  you  cannot  do  without 
XIO.  For  example,  the  following  state- 
ment deletes  a  disk  file  named  TEMP.BAS: 

XIO  33,#1A0/'D:TEMP.BAS" 

This  can  be  done  in  program  mode  or 
direct  mode.  You  can  learn  more  about 
XIO  in  the  Atari  400/800  BASIC  Refer- 
ence Manual  and  similar  sources, 

MOD  is  the  remainder  of  an  integer 
(whole  number)  division.  Here  is  an  ex- 
ample of  hoiv  to  translate  the  expression 
LOW  ^  LOCATION  MOD  256  into  Atari 
BASIC: 

HI  =  INTaOCATION/256) 
LOW  =  LOCATION  -  HI*256 
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From  the  publishers  of  COMPUTE! 


June  1987 
COMPUTE!  Disk 


All  the  exciting  programs  from  the  past  three  issues  of  COMPUTE!  are  on 
one  timesaving,  error-free,  floppy  disk  that  is  ready  to  load  on  your  Atari 
400/800,  XL,  and  XE.  The  June  1987  COMPUTE!  Disk  contains  the  enter- 
taining and  useful  Atari  programs  from  the  April,  May,  and  June  1987 
issues  of  COMPUTE!. 

The  June  1987  COMPUTE!  Disk  costs  $12.95  plus  $2.00  shipping  and 
handling  and  is  available  only  from  COMPUTE!  Publications. 

For  added  savings  and  convenience,  you  may  also  subscribe  to  the  COM- 
PUTE! Disk.  At  a  cost  of  only  $39.95  a  year  (a  $12,00  savings),  you'll  receive 
four  disks,  one  every  three  months.  Each  disk  will  contain  all  the  programs 
for  your  machine  from  the  previous  three  issues  of  COMPUTE!,  To  order  a 
subscription,  call  toll  free  800-247-5470. 

This  is  an  excellent  way  to  build  your  software  library  while  you  enjoy  the 
quality  programs  from  COMPUTE!. 

Disks  and  subscriptions  are  available  for  Apple,  Atari,  Commodore  64  and 
128,  and  IBM  personal  computers.  Call  for  details, 

For  more  information  or  to  order  individual  issues  of  the  June  1987  COM- 
PUTE! Disk,  call  toll  free  1-800-346-6767  (in  NY  212-887-8525]  or  write 
COMPUTE!  Disk,  RO.  Box  5038,  F.D.R.  Station,  New  York,  NY  10150. 


COMPUTEl  Publications  jnc.® 

Pan  of  ABC  Consumer  Magazines.  Inc.  ^^^ 

One  ot  the  ABC  Publishing  Companies 

825  7th  Avenue,  6th  Floor,  New  Yofk.  NY  10019 

Pubh*h6ri  of  COMPUTEf,  COMPUTEl's  Gazette.  COMPUTE"**  Gaietto  Disk,  COMPUTEI  Books, 

COMPUTEI's  AppSe  Appltcotionv  giKJ  COMPUTERS  Atari  ST  Dijk  &  Mogo/in«. 


Finally,  it  i$  impossible  to  usefully 
connect  VCS  cartridges  to  your  Atari  com- 
puter. Although  both  devices  have  a  6502- 
based  microprocessor,  their  video  display 
hardware  is  totally  incompatible.  Rigging 
up  the  necessary  hardware  would  probably 
cost  you  more  than  the  combined  price  of  a 
VCS  and  a  65XE  computer. 


Reading  Amiga  Joysticlcs 

1  am  programming  in  Microsoft  Amiga 
BASIC,  and  I  want  to  write  a  program 
that  uses  two  joysticks.  How  can  I  read 
a  joystick  plugged  into  joystick  port  1 
(the  port  where  the  mouse  connector 
normally  goes)? 

H.  Manson 

Amiga  BASIC'S  STICK  function  works  for 
port  2,  but  not  for  port  1.  Since  the  mouse 
is  used  to  access  BASIC'S  own  menus,  the 
designers  may  have  assumed  that  you 
would  never  want  to  unplug  it  from  port 
L  However,  it  is  possible  to  read  a  joystick 
in  port  1  by  PBEKing  a  location  in  memo- 
ry. Location  14675978  ($DFFOOA)  is  a  16- 
bit  register  that  contains  the  information 
you  need.  The  position  of  the  joystick  is 
returned  in  bits  0-1  and  8-9  of  this  loca- 
tion. Different  bits  are  set  to  a  value  of  1 
depending  on  which  direction  you  press 
the  joystick: 

right:  bit  1  =  1 

left:  bit  9  =  I 

dawn:  (bit  0  XOR  bit  1}  ^  1 

up:  (bit  8  XOR  bit  9)  =  I 

Location  14675980  (SDFFOOC)  con- 
tains corresponding  information  for  joy- 
stick port  2, 

BASIC'S  BUTTON  function  also 
works  only  for  port  2,  Here  is  a  program 
that  prints  the  directions  and  button  sta- 
tus of  a  joystick  in  port  2. 

Stickl:-* 
jpl%=PEEKW(14675978&>-t 

bitl%=jpl%  AND  2-* 

bit9%=jpl%  AND  512-* 

IF  bitl%=2  THEN  PRINT  "right  "  ? -* 

IF  bit9%=512  THEN  PRINT  "left  "? 

IF  £jpl%  AND  1)  XOR  bitl%/2  THEN 

PRINT  "down  "r-t 

IF  (jpl%  AND  256)  XOR  bit9%/2  TH 

EN  PRINT  "up  ";-* 

IF  (PEEK(10952895fi<)  AND  64)=0  TH 

EN  PRINT  "fire"?-* 

PRINT-* 

GOTO  Stickl-* 

The  last  IF  statement  in  the  program 
checks  the  joystick  button  in  port  1.  If  for 
some  reason  you  don't  want  to  use  the 
BUTTON  command  for  port  2,  you  can 
test  the  button  with  this  statement: 

IF  (PEEK(10952895&)  AND  128)  =  0 
THEN  PRINT  "Port  2  button"-* 


Dynamic  Keyboard  For 
The  IBM 

I  have  seen  a  few  programs  for  the 
Commodore  64  employ  a  technique 
you  call  the  dynamic  keyboard.  The 
technique  adjusts  memory  locations  to 
make  the  computer  think  that  someone 
has  typed  something  on  the  keyboard.  I 
would  like  to  know  how  to  do  this  on 
an  IBM  PC  compatible  like  my  Tandy 
1000. 

Kevin  O'Donovan 

The  dynamic-keyboard  technique  can  be 

implemented  on  most  computers  which 
feature  a  keyboard  buffer,  including  the 
IBM  PC  and  compatibles,  A  keyboard 
buffer  is  an  area  of  memory  where  infor- 
mation received  from  the  keyboard  is  held 
while  awaiting  processing.  In  the  IBM 
PC,  PCjr,  and  true  compatibles  the  buffer 
normally  resides  at  locations  1054-1085 
(&h41E-&h43D).  Each  time  a  key  is 
pressed,  two  bytes  are  placed  into  the 
buffer.  The  first  is  the  ASCII  character 
code  for  the  key,  and  the  second  is  the 
keyboard-scan  code  for  the  key.  For  keys 
like  the  function  keys  which  have  no  cor- 
responding ASCII  code,  the  first  byte  will 
be  0,  and  the  second  will  be  the  extended 
keyboard-scan  code  for  the  key.  Tables  of 
ASCII  arid  extended  key  scan  codes  can  be 
found  in  your  BASIC  manual. 

Locatio7is  1050  (&h41A)  and  1052 
i&hilCyare  used  as  huff er  pointers.  Loca- 
tion 1050  points  to  the  head  of  the  buffer 
(the  first  entry  waiting  to  be  read),  and 
location  1052  points  to  the  tail  of  the 
buffer  (one  byte  beyond  the  last  entry). 
Each  time  a  keypress  is  added  to  the 
buffer,  the  value  in  location  1052  is  incre- 
mented by  2.  Each  time  an  entry  is  read 
from  the  buffer,  the  value  in  1050  is  decre- 
mented by  2.  The  buffer  is  circular;  that  is, 
after  a  keypress  has  been  recorded  in  the 
last  two  bytes  of  the  buffer,  the  next  key- 
press will  be  recorded  in  the  first  two 
bytes.  The  buffer  is  considered  empty 
when  the  value  in  location  1052  equals 
the  value  in  1050,  and  the  buffer  is  con- 
sidered full  when  the  value  is  1052  is  1 
less  than  the  value  in  1050.  Thus,  only  15 
of  the  16  possible  entries  in  the  32-byte 
buffer  can  be  used  (the  maximum  number 
of  keypresses  the  buffer  can  hold  is  15). 

To  use  the  dynamic-keyboard  tech- 
nique, POKE  the  ASCII  codes  for  the  de- 
sired characters  into  the  buffer. 
(Remember  to  use  only  every  other  buffer 
location;  it  is  not  necessary  to  POKE  the 
key  code  bytes  unless  you  are  trying  to 
enter  a  key  with  an  extended  key  scan 
code.)  If  you  want  the  text  to  be  acted  upon 
automatically,  remember  to  include  a  car- 
riage return  (character  code  13)  as  the 
final  character.  Then  POKE  location  1050 
with  the  offset  (from  location  1024/ 
&h400)  to  the  first  character  of  the  entry 
(use  30/ahlE  for  the  first  byte  of  the 


IBM  Keyboard  Buffer 


TaU 

pointer 

1 

Head  pointer 

1 

Buffer  fuU 


Tail  pointer    Head  pointer 

Buffer  empty 

buffer)  and  POKE  location  1052  with  the 
offset  immediately  beyond  the  last  charac- 
ter of  your  entry.  Once  you  have  set  up  the 
buffer  and  pointers,  the  next  time  BASIC 
looks  to  the  keyboard  buffer  for  input,  it 
will  find  the  POKEd  characters  and  pro- 
cess them  just  as  if  they  had  been  typed. 
One  possible  use  for  this  technique  is 
to  provide  default  entries  for  INPUT 
statements.  The  following  example  pro- 
gram illustrates  this: 

100  SCREEN  0: WIDTH  e0:CLB:DEF 

BEG=0 
110  PRINT: PRINT 
120  DEFAULT*=^'Green5boro":GD5 

UB  1000 
130  INPUT  "City:   ",CITY$ 
140  DEFAULT«="NC":GQSUB  1000 
150  INPUT  "State:  ", STATE* 
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160  PRINTiPRINT  CITY*;",  " ; ST 

ATE$: PRINT 
170  DEFAULT$="y"H-CHR$(29)  :GOS 

UB  1000 
180  INPUT  "Another  entry"; OPT 

190  IF  OPT*="Y"  OR  QPT*="y"  T 

HEN  110 
200  END 
1000  DEFAULT*=LEFT$(DEFAULT$, 

13) : DBL=2«LEN (DEFAULT*) 
1010  FOR  11=1  TO  DBL  STEP  2 
1020    POKE  ^H41D+II, ASC(MID$ 

(DEFAULT*,  CII+l>/2, 1) ) 
1030  NEXT 

1040  POKE  e<H41A,&HlE 
1050  POKE  a(H41C,&HlE-i-DBL 
1060  RETURN 

The  subroutine  beginning  at  line  WOO 
places  whatever  is  in  the  variable  DE- 
FAULTS into  the  buffer  (limited  to  15 
characters  by  the  LEFTS  function  in  1000), 
and  then  sets  the  buffer  pointers  appropri- 
ately. Line  170  illustrates  how  cursor- 
movement  characters  can  be  added:  The 
CHR$(29)  is  a  cursor-left  character,  which 
moves  the  cursor  back  onto  the  y  after  it  is 
printed. 

A  more  common  use  of  the  technique 
is  to  make  programs  self-modifying.  This 
scheme  relies  on  BASIC'S  full-screen  edi- 
tor. You  can  make  a  program  add  lines  to 
itself  by  printing  the  desired  new  program 
lines  at  a  known  location  on  the  screen, 
and  then  placing  a  carriage  return  (char- 
acter 13)  into  the  buffer  for  each  line  to  be 
added.  Here  is  a  very  simple  address- file 
program  which  illustrates  this  method: 

10  NEWLINE=300  :ENTRIES=^0 

20  SCREEN  0: WIDTH  80:CLS 

^0    PRINT!PRINT"riicrG    Filer":P 

RINT 
40  PRINT  "Select:  C13  Review 
addresses": PRINT  TAB(9)"C2 
1    Add  addresses" SPRINT 
50  K*=INKEY*:IF  K*=""  OR  K$< " 

1"  OR  K*>"2"  THEN  50 
60  IF  K*="2"  THEN  100 
70  RESTORE: FOR  1=1  TO  ENTRIES 
:READ  PERSON*, ADDRESS*, CI T 
YSTATE* 
80  PRINT  PERSON*: PRINT  ADDRES 

S*: PRINT  CITYSTATE*:PRINT 
90  NEXT: GOTO  30 
100  INPUT  "Name:      ", PERSON 

* 
110  INPUT  "Address:   ", ADDRES 

S* 
120  INPUT  "City:      ",CITY* 
130  INPUT  "State:     'ESTATE* 
140  INPUT  "Zip  cade:  ",ZIP* 
150  CITYSTATE*=CHRt(34)+CITY* 
+  ",  '•+STATE*+"  "+2IP*+CHR 
*(34) 
160  CLS: LOCATE  2, 1 
170  PRINT  STR*CNEWLlNE)+"data 
"+PERSON*+", "+ADDRESS*+" 
, "+CITYSTATE* 
180  PRINT  "10  newline=";NEWLI 
NE+10; ":entries="; ENTRIES 
+  1 
190  PR I NT "run" 

200  DEF  SEG=0:POKE  &H41E,13:P 
OKE  &H420,  13:PDKE  ScH422,  1 
3 


210  POKE  &H41A,8tHlE:POKE  &(H41 

C,&H24 
220  LOCATE  1, 1 : END 

After  accepting  name  and  address 
information,  the  program  creates  a  DATA 
statement  containing  the  new  entry  and 
prints  it  on  the  screen  (line  170),  It  also 
prints  an  updated  line  10  and  a  RUN 
command,  then  places  three  return  char- 
acters into  the  buffer.  Finally,  the  program 
relocates  ■  the  cursor  one  line  above  the 
printed  lines  and  ends.  When  a  BASIC 
program  ends,  BASIC  prints  an  Ok  prompt, 
moves  the  cursor  to  the  next  line,  and 
looks  for  keypresses.  In  this  case,  the  re- 
turn characters  in  the  buffer  will  cause  the 
three  printed  lines  to  be  entered,  and  the 
RUN  command  in  the  last  of  the  three 
lines  will  restart  the  newly  modified  ver- 
sion of  the  program.  The  major  drawback 
to  using  this  technique  is  that  all  previous 
variable  values  are  lost  when  the  program 
is  run  again.  This  is  why  it  is  necessary  to 
update  line  10  to  reflect  the  new  values  for 
NEWLINE  and  ENTRIES. 

Refer  to  Chapter  2  in  COMPUTEI's 
Mapping  the  IBM  PC  and  PCjr /or  more 
information  on  the  keyboard  buffer,  in- 
cluding ways  to  relocate  the  buffer  and 
increase  its  size.  The  example  programs 
should  work  on  most  IBM-compatible 
computers  (they  were  tested  on  a  Tandy 
lOOOEX),  but  we  cannot  guarantee  that 
they  will  work  as  listed  on  every  variety. 
It  is  possible  that  some  machines  may 
place  the  buffer  at  locations  other  than 
those  used  by  IBM. 


Stay  Out  Of  My  Zero  Page 

I  am  writing  a  simple  graphics  routine 
for  the  Commodore  64.  I  have  been 
trying  to  fill  the  screen  randomly  with 
the  ball  character,  using  this  BASIC 

line: 

10    X=INT(RND(1024)*2023)+liPOK 

EX,81:GOTO10 

The  computer  puts  a  few  balls  on  the 
screen  and  then  locks  up.  What  causes 
this  problem? 

Kevin  Bentley 

You're  aiming  at  the  right  area  (screen 

memory,  locations  1024-2023),  but  you're 
using  a  faulty  formula  to  calculate  a  ran- 
dom position  within  that  zone.  No  matter 
what  value  you  put  inside  its  parentheses, 
the  RND  function  always  returns  a  frac- 
tional value  between  0  and  1.  The  result  of 
RNDd  024)  is  the  same  as  RND(l)  or  RND 
with  any  positive  number  inside  paren- 
theses. Thus,  the  expression  INT(RND 
(1024)*2023)-\-l  generates  random  num- 
bers in  the  range  1-2023,  Some  of  these 
POKEs  may  go  in  the  screen  memory  area, 
but  many  of  them  will  go  below  the 
screen,  into  sensitive  memory  zones  such 
as  the  zero  page— the  lowest  256  bytes  of 


memory.  Nearly  all  of  the  locations  in  the 
zero  page  are  reserved  for  the  computer's 
own  internal  use,  and  you  can  easily  lock 
up  the  machine  with  careless  POKEs  in 
this  zone. 

Fortunately,  no  real  harm  occurs 
when  you  crash  the  computer  with  a  mis- 
directed POKE,  Turn  the  machine  off  and 
on  to  reset  it.  Here  is  a  program  that 
properly  POKEs  randomly  colored  ball 
characters  at  random  locations  on  the 
screen. 

10  PRINT  CHR?(147)  CHR${142) 

20  POKE  53280,0: POKE  53281,0 

30  JUNK-RND ( -TI ) s  BALL=81 

40  SCREEN=1NT(RND(1)*1000)+102 

4 

50  C0L=INT(RND(1)*15) 

60  POKE  SCREEN+54272,COL 

70  POKE  SCREEN,  BALL 

80  GOTO  40 

To  obtain  better  randomness,  line  30 

seeds  the  random  number  generator  with 
the  expression  RND(—TI).  The  expression 
in  line  40  generates  a  random  number  in 
the  range  1024-2023,  the  correct  area  for 
screen  POKEs,  and  line  50  generates  a 
color  number  in  the  range  0-15.  Line  60 
POKEs  the  randomly  selected  color  value 
into  the  color  memory  location  that 
matches  the  screen  location  we  chose. 
Color  memory  is  located  at  55296-56295, 
exactly  54,272  bytes  above  screen  memo- 
ry. Once  the  new  color  has  been  set,  line 
70  places  the  ball  on  the  screen.  When 
POKEing  to  screen  memory,  it's  usually 
best  to  POKE  into  the  matching  color 
memory  location  first. 

Modified  Numeric  Keypad 

Thank  you  for  "Numeric  Keypad  in  64 
Mode"  ("Readers'  Feedback/'  October 
1986),  which  allows  Commodore  128 
owners  to  use  the  computer's  numeric 
keypad  when  in  Commodore  64  mode. 
That  program  is  very  useful  However,  I 
would  like  to  change  the  decimal  point 
on  the  keypad  to  a  comma,  so  that 
when  Fm  typing  DATA  statements,  I 
will  have  the  comma  in  a  convenient 
location. 

S.  A.  Seekins 

Load  the  program,  add  this  line,  and  save 
the  program  under  a  new  name. 

lis  POKE  927,  47 

This  POKE  makes  the  period  key  pro- 
duce a  comma.  POKE  927,44  restores  the 

key  to  normal  @ 
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Reviews 


Murder  Party 

Neil  Randall 


Requirements:  Commodore  64,  Apple  U 
series,  and  IBM  PC  and  compatible  com- 
puters, A  printer  is  required. 

As  everyone  knows,  computers  provide 

capable,  tireless^  and  socially  unobjec- 
tionable opponents  for  games  of  all 
types.  After  a  while,  though,  it's  possi- 
ble to  grow  tired  of  being  trounced  by 
computers.  And  it's  also  possible  to 
grow  tired  of  playing  solitaire  games. 

Remember  those  long  multiplayer 
games  of  the  past — before  computers — 
in  which  socializing  was  as  important 
as  getting  the  game  finished?  They  had 
to  appeal  to  the  greatest  number  of 
people  possible.  They  had  to  be  easy  to 
play,  yet  challenging  enough  to  satisfy. 
And  they  had  to  have  a  subject  which 
captivated  us. 

More  often  than  not,  we  chose 
murder. 

Murder  mysteries.  Sherlock 
Holmes.  Hercule  Poirot.  Peny  Mason. 
Jessica  Fletcher,  Miss  Scarlet  in  the 
kitchen  with  the  candlestick.  And  so  on. 

Electronic  Arts'  Murder  Party  al- 
lows you  quickly  and  easily  to  create  a 
party  in  which  you  and  your  guests  will 
try  to  solve  a  murder.  You  need  any- 
where from  five  to  seven  guests.  Each 
of  them,  in  addition  to  yourself,  will 
play  the  role  of  a  suspect  in  the  case, 
with  all  of  you  picking  up  clues  from 
conversations  and  distributing  clues 
you  are  given.  At  the  end  of  the  eve- 
ning, whoever  solves  the  mystery  wins 
the  game. 

Verdict,  Please 

The  rules  are  almost  nonexistent.  The 
game  is  divided  into  four  rounds.  Dur- 
ing each  round,  every  guest  must  give 
out  some  information  to  the  others  as 
discreetly  as  possible.  As  host,  you  try 
to  determine  when  everyone  has  done 
so,  and  then  you  move  them  into  the 
next  round.  Once  the  four  rounds  have 
ended,  the  guests  fill  out  a  Verdict 
Sheet,  and  together  you  figure  out  who 
has  won. 

Noncomputerized  versions  of  this 


type  of  game  exist,  but  where  the  com- 
puter helps  is  its  ability  to  keep  infor- 
mation hidden  from  everyone,  even  the 
host.  In  fact,  the  host  does  not  just  run 
the  event;  he  also  plays  the  game.  Mur- 
der Party  scrambles  the  clues  and  the 
murderer's  identity,  so  not  even  the 
host  knows  who  did  it. 

Creating  a  party  is  extremely  easy. 
Instructions  on  the  screen  take  you 
through  the  creation  step  by  step,  while 
information  in  the  manual  helps  you 
get  the  party  going.  First,  you  choose 
from  one  of  two  scenarios:  The  Big  Kill, 
or  Empire.  The  disk  instructions  intro- 
duce you  to  Murder  Party,  then  provide 
information  about  either  scenario.  After 
choosing  one,  you  can  then  read  the 
invitation  that  will  be  sent  to  the  guests, 
learn  more  about  the  suspects  to  help 
you  assign  roles,  or,  finally,  create  or 
edit  a  party. 

To  create  the  party,  you  fill  in  the 
blanks  on  the  screen.  You  must  specify 
the  date,  time,  and  place  of  the  get- 
together,  assign  the  guests  to  their 
roles,  and  then  print  out  the  materials. 
Casting  roles  involves  choosing  which 
guest  will  play  which  role,  then  enter- 
ing that  guest's  name  and  address.  Fig- 
uring out  who  will  best  suit  each  part  is 
an  extremely  interesting  exercise,  since 
it  means  that  you  should  have  a  reason- 
able grasp  of  your  guests'  personalities. 

By  Invitation  Only 

Printing  the  party  materials  takes  up  to 
two  hours  with  a  dot-matrix  printer,  and 
it  consumes  roughly  100  sheets  of  paper. 
But  it's  worth  it.  Murder  Party  individ- 
ualizes each  packet  of  information,  pro- 
viding each  player  with  different, 
sometimes  conflicting,  information,  A 
few  weeks  before  the  party  starts,  you 
print  out  the  invitations  and  envelopes, 
sending  them  to  the  guests  without  ex- 
amining them  yourself  (except  your 
own,  of  course).  Just  before  the  party, 
you  print  out  the  materials  for  the  host 
(police  records,  personnel  files,  coded 
notes,  even  a  check)  and  the  clues  for  the 
guests.  The  program  warns  you  against 
the  temptation  to  examine  the  clues, 
since  doing  so  will  give  it  all  away. 
Instead,  you  put  them  in  sealed  enve- 
lopes and  hand  them  to  the  guests  when 
the  party  begins. 


The  software  does  all  this,  while 
the  manual  helps  you  organize  the  par- 
ty itself.  It  provides  suggestions  and 
hints  for  making  the  guests  comfortable 
(even  those  who  might  not  enjoy  games), 
and  it  goes  so  far  as  to  suggest  recipes 
for  food  to  serve  at  dinner,  music  to 
play  in  the  background,  and  clothes  to 
capture  the  ambience.  The  Big  Kill,  for 
instance,  is  all  about  a  group  of  ex- 
Berkeleyites  from  the  sixties  getting  to- 
gether just  after  a  friend's  death  (yes, 
you've  heard  this  one  before),  and  the 
manual  suggests  pulling  out  your  old 
Woodstock,  Canned  Heat,  or  Bob  Dylan 
albums  and  putting  up  posters  of  Joplin 
and  Hendrix.  Exceptionally  useful,  the 
manual  should  get  you  through  your 
first  party  quite  effortlessly.  Electronic 
Arts  plans  to  publish  party  disks,  each 
with  two  or  more  additional  scenarios, 
but  the  two  provided  are  variable  and 
can  be  re-used. 

For  anyone  interested  in  staging 
such  a  party.  Murder  Party  is  exactly 
right.  Not  only  does  it  take  the  drudgery 
out  of  producing  the  needed  materials;  it 
also  allows  you  to  play  the  game,  not 
just  to  organize  it  and  watch  it  run. 
Unlike  the  game  master  in  a  standard 
role-playing  game,  who  spends  hours 
learning  rules,  drawing  maps,  and  an- 
ticipating responses  from  the  players, 
the  host  of  Murder  Party  simply  decides 
whom  to  invite,  prints  out  the  materials, 
and  plans  for  an  entertaining  evening. 

Murder  Party 

Electronic  Arts 

1820  Gateway  Dr. 

San  Mateo,  CA  94404 

$32.95  Commodore  64  version 

$39.95  Apple  II  series  and  IBM  PC  and 

compatibles  versions 


56    COiyiMITO     June  1987 


Gridiron 

Ervin  Bobo 


Requirements:  Amiga  or  Atari  ST  51 2K 
required. 


When  you've  booted  Gridiron  on  the 
Amiga,  the  title  screen  presents  you 
with  an  excellent  picture  of  a  ball  carrier 
twisting  out  of  double  coverage;  the  last 
few  bars  of  'The  Star-Spangled  Ban- 
ner" are  heard;  and  the  crowd  roars. 
But  be  ready  for  a  surprise — this  is  the 
last  you'll  see  of  anything  that  looks 
like  real  football  players. 

Instead,  your  view  of  the  field  will 
show  you  colored  dots  moving  through 
the  play  action,  resembling  nothing  so 
much  as  an  animated  chalkboard — but 
without  the  arrows.  After  just  a  few 
minutes,  you'll  realize  that  this  is  a 
pretty  good  way  to  play  the  game. 

From  opening  menus,  you  choose 
whether  you  wish  a  one-  or  two-player 
game,  and  you  set  the  length  of  the 
quarters  for  5,  10,  or  15  minutes.  The 
shorter  times  do  not  allow  for  a  long- 
range  strategy  because  there  will  not  be 
as  many  possessions  per  team.  With  the 
longest  quarters,  the  average  game  can 
be  played  in  two  hours. 

Practice  First 

Even  in  the  Beginner  level,  the  com- 
puter will  be  a  tough  opponent.  With 
difficulty  being  based  on  factors  of 
speed,  strength,  and  intelligence,  you'll 
want  to  do  a  lot  of  practice  before  chal- 
lenging it  at  any  of  the  three  higher 
levels. 

Next  you  choose  whether  to  use 
the  Standard  Playbook  or  one  that  you 
have  created  using  the  Play  Creation 
Utility;  and  whether  to  use  the  default 
team  or  draft  a  new  team  that  you  have 
created  by  altering  Player  Ability 
Points.  Go  through  the  same  steps  to 
select  the  opposing  team,  whether  con- 
trolled by  the  computer  or  a  friend,  and 
you're  ready  for  the  coin  toss  and  the 
beginning  of  the  game.  All  selections 
are  made  with  the  mouse.  In  fact,  in 
playing  the  game  you'll  use  the  key- 
board only  when  entering  the  names  of 
your  teams  and  the  validation  code  that 
is  a  familiar  form  of  copy-protection. 

The  overhead  view  will  show  you 
about  70  percent  of  the  football  field. 
When  action  spills  across  the  screen 
border,  the  game  will  momentarily 
freeze,  and  then  the  field  will  be  re- 
drawn to  show  the  missing  end.  This  is 
a  rather  nice  feature,  since  scrolling 
might  not  allow  enough  time  for  you  to 
get  the  mouse  pointer  into  position — 
and  in  this  contest  you're  going  to  need 
every  break  you  can  get. 


In  any  play,  one  of  your  players  is 
controlled  by  the  mouse  pointer.  He's 
easy  to  spot  because,  a  moment  before 
the  ball  is  snapped,  he  changes  color. 
Hopefully,  you'll  have  your  pointer  in 
position,  because  this  player  will  follow 
it  wherever  you  drag  it — providing  no 
one  gets  in  his  way.  If  you're  playing 
offense,  he'll  be  the  quarterback;  youTl 
want  to  drag  him  back  a  bit,  then  click 
the  left  mouse  button  when  you're 
ready  for  him  to  throw.  Assuming  the 
pass  is  completed,  the  receiver  now 
changes  color  and  will  be  controlled  by 
the  dragging  of  the  pointer,  allowing 
you  to  weave  around  the  opposing  play- 
ers and  make  the  touchdown — maybe. 

It  is  this  single-player  control  that 
makes  Gridiron  unique  among  comput- 
erized football  games.  Others  allow 
some  degree  of  control,  but  only  for  the 
team  as  a  unit,  after  which  you  can  put 
your  hands  in  your  lap  and  wait  to  see 
how  it  turns  out.  Gridiron,  by  allowing 
this  player  control,  allows  you  to  alter 
your  strategy  to  fit  the  moves  of  the 
other  team. 

For  setting  up  a  play  or  a  defense,  a 
small  box  appears  in  the  upper  left  of 
the  screen  and  allows  you  to  select  a 
number  between  0  and  19;  these  num- 
bers correspond  to  the  plays  in  the 
playbook,  or  to  plays  you  may  have 
built  on  your  own.  While  you  are  doing 
this,  a  larger  scorecard  fills  the  center  of 
the  screen  and  keeps  you  from  seeing 
the  formation  selected  by  the  opposing 
team.  This  situation  lasts  until  20  sec- 
onds before  the  play.  If  you're  on  of- 
fense, you  decide  when  to  snap  the  ball; 
otherwise  you  wait  and  try  to  react. 

When  doing  this,  you  need  to  re- 
member that  all  your  players  will  fol- 
low the  playbook  pattern  exactly,  and 
that  only  one  man,  the  one  controlled 
by  the  mouse,  will  have  the  freedom  to 
deviate  from  the  plan. 

Ploy  Creation  And  Player 
Draft  Options 

Your  own  playbook  can  be  created  with 
the  Play  Creation  Utility,  in  which  you 
can  modify  either  offensive  or  defen- 
sive plays.  First,  select  any  of  the  20 
listed  plays  from  the  menu  and,  if  you 
wish,  change  the  name  of  the  play. 
Select  a  player  by  pointing  and  clicking; 
place  him  on  the  field;  and,  from  the 
new  edit  menu,  select  the  action  you 
wish  the  player  to  take.  (This  explana- 
tion is  somewhat  simplified  for  space 
considerations.) 

In  building  players  capable  of  car- 
rying out  your  schemes — or  just  better 
qualified  to  run  the  plays  in  the  default 
playbook^ — you  select  the  Player  Draft 
option  and  alter  the  Player  Ability 
Points  for  each  selected  player.  Speed 
and  strength  of  each  player  is  given  a 
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The  title  screen  of  Gridiron  (Amiga 
version)  from  Betkesda  Softivorks. 


numerical  value  that  you  may  raise  or 
lower  as  you  see  fit  and,  during  play, 
the  computer  takes  all  this  into  account: 
A  ball  carrier  with  high  strength  will 
not  necessarily  be  brought  down  or 
even  delayed  unless  the  tackier  is  of 
equal  strength. 

Both  the  altered  players  and  the 
altered  plays  can  be  saved  to  a  separate 
data  disk  for  future  use,  (It  occurred  to 
me  that  you  could  create  a  team  of 
wimps  who  run  the  wrong  way  and 
then  force  the  computer  to  use  that 
team.  So  far,  it  has  only  occurred  to  me: 
It's  up  to  you  to  figure  out  the  ethics  of 
such  a  move.) 

With  the  ability  to  alter  players, 
teams,  and  the  playbook,  Gridiron  pre- 
sents some  options  never  before  seen  in 
such  a  simulation.  The  fact  that  it  uses 
moving  dots  rather  than  sprites  and  blit- 
ter  objects  to  represent  the  players  is  no 
handicap  to  the  action  and  strategy — 
and  may  in  fact  be  a  blessing  for  some. 

Documentation  is  very  good.  And 
the  sound  continues  throughout  the 
game — not  only  will  you  hear  the 
crowd  roar;  you'll  also  hear  the  quarter- 
back making  his  "hut... hut"  calls;  hear 
the  grunts  as  players  collide;  and, 
through  synthesized  speech,  hear  the 
referee  calling  the  results  of  plays. 

With  all  these  things  going  for  it. 
Gridiron  should  become  a  favorite  of 
die-hard  football  aficionados  as  well  as 
offer  some  appeal  for  those  who  just 
like  to  play  a  good  game. 

Gridiron 

Bethesda  Softworks 
9208  Burning  Tree  Road 
Bethesda,  MD  20817 
$59.95  Amiga  version 
$49.95  Atari  ST  version 
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Destroyer 

Scott  Thomas 

Requirements:  Commodore  64,  Apple  II 
series  with  a  minimum  of  128K,  IBM  PC 
and  compatibles. 

Destroyer,  a  new  game  simulation  by 
Epyx,  is  an  interesting  blend  of  strategy 
and  arcade  action.  Obviously  a  counter 
to  the  numerous  submarine  simulations 
that  have  infested  the  silicone  seas  over 
the  last  year.  Destroyer  is  a  simulation  of 
the  Fletcher-class  US  Destroyer  from 
World  War  II.  Besides  having  some  ex- 
cellent arcade  action  and  strategy  ele- 
ments, the  program  features  some  of 
the  best  graphics  I've  seen  on  a  Com- 
modore 64.  It  puts  you  in  command  of  a 
30  00- ton  fighting  ship  with  a  3  25 -man 
crew.  Destroyers  like  the  Fletcher-class 
were  the  workhorses  of  the  Navy  dur- 
ing World  War  11.  Besides  providing 
valuable  submarine  and  aircraft  screen 
for  naval  and  merchant  convoys,  de- 
stroyers ran  blockades,  rescued  dovmed 
pilots,  bombarded  coastal  positions  in 
support  of  invasion  forces,  and  engaged 
in  surface-to-surface  combat  with  other 
naval  vessels.  The  program  provides 
seven  missions  of  increasing  difficulty, 
each  one  providing  a  different  combina- 
tion of  tasks  that  permit  you  to  expe- 
rience the  various  activities  that 
destroyers  performed  during  the  war. 

Destroyer  requires  a  joystick,  and 
loads  from  a  single  disk.  Due  to  the 
numerous  graphics  saeens  for  the  ship 
stations,  the  program  must  access  the 
disk  at  various  points  through  the 
game.  The  program's  loading  time  and 
subsequent  disk-access  time,  however, 
is  kept  to  a  minimum  by  the  implemen- 
tation of  Ep3^'s  fast  Vorpal  load  utility. 

Missions  And  Orders 

You  begin  the  program  by  providing 
your  name  and  one  for  the  ship  in  your 
command.  The  next  step  permits  you  to 
select  from  the  seven  different  missions 
and  select  from  three  difficulty  levels 
(easy,  intermediate,  or  advanced).  Once 
your  choices  are  made  and  your  mis- 
sion selected,  you  will  receive  your  or- 
ders, which  describe  the  mission  you 
must  undertake  and  its  objective. 
Thereafter  you  enter  the  navigation  sta- 
tion, where  plotting  the  ship's  course  is 
accomplished. 

With  the  course  plotted,  you  are 
then  confronted  with  a  screenful  of  in- 
strumentation known  as  the  Bridge  sta- 
tion. From  the  Bridge,  you  have  a 
certain  amount  of  control  over  the  other 
ship,  stations.  Those  stations  include 
radar,  sonar,  surface  guns,  anti-aircraft 
guns,  torpedoes,  and  depth  charges,  as 
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Destroyer,  from  Epyx,  is  a  fast-paced 
blend  of  action  and  strategy  with  excel- 
lent graphics. 

well  as  damage  control.  While  you  can 
go  to  each  of  these  stations  by  giving  a 
two-letter  command,  you  can  receive 
information  from  and  give  certain  limited 
commands  to  some  or  all  of  those  sta- 
tions from  the  Bridge.  Also  from  the 
Bridge,  as  well  as  from  several  other 
stations,  you  can  change  the  heading 
and  speed  of  the  ship  from  the  plotted 
course. 

It  is  from  the  Bridge  that  you  first 
become  aware  of  the  strategy/arcade 
dichotomy  of  Destroyer,  The  ship  does 
indeed  have  a  large  crew,  and  all  of  the 
stations  under  your  command  will,  if 
ordered,  operate  automatically.  On  the 
other  hand,  you  can  take  manual  con- 
trol of  any  station — which,  with  respect 
to  the  weapons  stations,  puts  you  into 
an  arcade-style  action  mode.  Taking 
manual  control  of  these  stations  will  be 
too  tempting  for  some  arcade  enthusi- 
asts, as  the  graphics  and  action  are  very 
good.  However,  eveh  arcade  enthusi- 
asts will  quickly  learn  how  fast  a  vessel 
can  be  destroyed  and  the  mission  lost  if 
they  spend  too  much  time  manually 
shooting  down  aircraft  or  torpedoing 
enemy  ships. 

The  reverse  situation  also  is  true. 
You  cannot  command  your  ship  from 
the  Bridge  and  succeed  in  your  mission. 
While  your  crew  can  perform  with 
minimum  levels  of  adequacy  at  each 
station,  an  attack  on  your  vessel  or  a 
command  by  you  requiring  the  capabil- 
ities of  a  particular  station  will  most 
often  require  your  direct  attention  for  a 
period  of  time.  Accordingly,  Destroyer 
demands  a  precise  blend  of  the  com- 
mander's use  of  the  strategy  and  action 
aspects  to  succeed  on  the  mission. 

One  of  the  most  interesting  and 
challenging  stations  is  damage  control. 
By  typing  the  letters  DA,  you  are  trans- 
ferred to  the  damage- control  station, 
which  gives  you  a  aoss-section  view  of 
your  ship  and  a  list  of  the  areas  of  the 
ship  that  can  incur  damage.  Also  listed 
are  four  damage-control  parties,  identi- 
fied as  Alpha,  Baker,  Charlie,  and  Delta 
teams.  The  teams  are  listed  in  order  of 


their  speed  of  repair,  with  Alpha  team 
being  the  fastest.  When  damage  is  in- 
curred, the  teams  are  assigned  automat- 
ically in  descending  order  to  fix  the 
repairs.  However,  you  can  manually 
reassign  the  parties  to  any  damaged 
stations.  The  reassignment  capability 
will  be  critical  to  your  success — particu- 
larly in  the  more  difficult  missions, 
where  some  damage  to  your  ship  is 
almost  certain — since  the  automatic  as- 
signment routine  may  assign  the  fastest 
teams  to  the  least  important  stations  for 
repairs.  Depending  upon  your  mission 
and  the  circumstances  of  the  moment, 
the  repair  of  damage  to  the  steering 
system  or  sonar  may  be  much  more 
critical  than  damage  to  the  surface  guns 
or  the  torpedo  stations. 

The  instruction  manual  that  accom- 
panies the  program  is  brief,  but  com- 
plete and  informative.  It  includes  a 
breakdown  of  each  station,  as  well  as 
some  interesting  and  useful  information 
about  the  Fletcher-class  Destroyer. 

In  summary.  Destroyer  is  one  of 
those  hybrid  strategy/arcade  simula- 
tion games  that  excels  by  performing 
well  in  both  areas  and  by  requiring 
skills  in  both  areas  for  player  success. 
The  program  maintains  Epyx's  reputa- 
tion for  superb  graphics,  and  is  fast- 
paced,  with  plenty  of  action.  If  you 
fancy  yourself  to  have  "the  right  stuff" 
to  be  captain  of  a  fighting  ship.  Destroyer 
can  certainly  provide  you  with  a  taste  of 
the  rewards  and  rigors  of  command. 

Destroyer 

Epyx 

P.O.  Box  8020 

600  Galveston  Rd. 

Redwood  City,  CA  94063 

$39.95  all  versions 
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Adv.  Construction 

33.B9 

Atrheart 

22.89 

Algeblaster 

27.B9 

tBM 

Aloha  Plot 
ASC  11  Express 

20,89 

74.89 

AFgeblastcf 

27.B9 

Auto  Works 

25.89 

American  Challenge 

21B9 

Bag  ol  Tricks  2 

31.B9 

ASC  II  Express 

74.89 

Bank  Street  Filer 

42.89 

Balarce  of  Power 

33.89 

Bank  Street  Mailer 

42.89 

Bank  SUtflt  Writer - 

58.89 

Bank  Streiit  Writer 

42.89 

Breakers 

28.89 

Bank  Street  Speller 

42.89 

Ceftitfcitt  Maker 

41.89 

Bard's  Tale 

39.B9 

Library  Vol.  1 

19.89 

Beagle  Bag 

16.89 

cfBi5«IIJ- 

419.69 

B«agle  Basic 

18.89 

Dollars  &  Sens« 

104.99 

Beagle  Compiler 

41.89 

Flight  Sim 

88.89 

Beagle  Grap>hics 

30.89 

28.49 

Beneath  Apple  DOS 

12.B9 

Fonlrix 

88.89 

BigU 

18,49 

Fontasy 

48.89 

Bookends 

68,89 

Fntpks  1  thru  13      ea.  13.89 

Bop  &  Wrestle 

18,89 

Framework  II 

419.89 

Captain  Goodnight 

22.89 

Fully  Powered  PC 

24.89 

Carmen  Sandiego 

25.89 

Gimieafd  Hi 

39.89 

Certificate  Maker 

29.89 

Gato 

21.89 

Library  Vol.  1 

19,89 

Kacker )  or  II 

24.89 

Chsrt'n  Graph  TIbx 

23,89 

H«l^t  Act 

24.89 

Classmates 

27.89 

Jet 

31,49 

DatabAse  Toolbox 

23,89 

King's  Quest  1  or  11 

31. 8t 

Oiizle  Draw 

37.89 

Load  Runner 

2.89 

D-Code 

20,89 

Locksmith 

56,89 

DiskOuIck 

15,89 

Lotus 

319.89 

Dollars  &  Sense 

71,89 

Mean  18 

34.89 

DOS  Boss 

12.89 

Mngng  ¥f  Mor>ey 

114.89 

Double-Take 

16.49 

Micro  Cookbook 

27.89 

Eidolorv 

24,89 

Microsoft  Word 

279.00 

Essential  Data  Dup 

20,89 

Multiplan 

110.89 

Extra  K 

20,89 

Newsroom  Pfo 

74.89 

Fantavitlon 

31.89 

r^orton  UtiJilies 

58,89 

Fat  Cat 

18,49 

Option  Board 

79.89 

RexTyp* 
Right  Sim  II 

15.49 

PC  Tools 

18.89 

34.89 

PFS:  Access 

59.89 

Fontrixl.5 

58.89 

PFS:  Files  Profes. 

148.89 

Fntpks  1  thru  15       ea,  13.89 

PFS:  First  Choice 

104.B9 

Font  Works 

33.89 

PFS:  Plan  Profes. 

148.89 

Forecast 

37.89 

PFS:  Write  Protet. 

148.99 

Frame-Up 

15,49 

Print  Shop 

34.S9 

Gato 

21.89 

Print  Shop  Companion  32,a9 

GlJoe 

24,89 

Print  Shop  Gr.  t\ 

21.99 

Graphics  Department 

28,89 

Reflex  Database 

66.B9 

Graphic  Magician 

25,89 

Report  Card 

32.89 

Graphworks 

44.39 

Sidekick 

50.89 

GPLE 

25.89 

Sideways  Ver.  --3 

3B.89 

Handler  Package 

58.69 

Silent  Service 

22.89 

Impossible  Mission 

24.69 

Speedkey 
Sup«rCalc  4 

104.89 

LO.  Silver 

15.69 

279.89 

Jeeves 

28.69 

5up*fkey 

40.89 

Karatfka 

22.69 

?ffa 

494.89 

Knight  of  Diamonds 

21.69 

99.89 

Kid  Writer 

24.69 

Toy  Shop 

46.89 

King's  Quest  L  II  or  111 

31.89 

Traveling  Sidekick 

40.89 

Koronis  Rift 

24.69 

TurtK  Database  TIbx 

40.B9 

Legacy  oJ  Llytgamyn 

24.69 

Turbo  Lighting 

58.89 

List  Haiidler 

36.69 

Turbo  Pascal  3.0 

59.89 

Locks^nith 

38.69 

Turbo  Prolog 

58.89 

Macro  works 

18.69 

Turbo  Tutor 

23.89 

Mngng  Vr  Money 

98.69 

Ultima  III 

40.B9 

Megaworks 

CALL 

VisabJe  BOSB 

47.B9 

Merlin 

41.69 

Volkswriter  DIx  n 

141.00 

Merlirt  Pro 

64.69 

Wf  b.  Spt  11  Checker 

39.89 

Merlin  Combo 

68.89 

Wizardry 

36.89 

Micro  Cookbook 

27.69 

Word  Perfect 

289.09 

Millionaire 

31.B9 

Wordstar  JOOO* 

2B4.89 

Miniplx  1.2  or  3 

15.49 

Moebius  40,89 

Mouse  Talk  69.89 

MouseWrtte  88.88 

Munch-A-Bug  23.8$ 

NATO  Commander  22.89 

PFS:  Plan  75.89 

PFS:  Wrile  75.81 

PFS:  File  75.83 

Pieca  of  Cake  Math  23.89 

Pinpoint  48.89 

Prince  48.89 

Printogripher  23.89 

Prinlmasler  24.89 

Prim  Shop  31,89 

PrtShpGr.  1.2.3or4  15.89 
Print  Shop  Compar^ion  24,89 

Probyter  18.49 

Pronto  DOS  15,49 

Program  Writer  33.89 

Power  Print  20.89 

Quicken  34.89 

Hepofi  Card  32.89 

Rescue  on  Fractalus  24.89 

Reportworks  CALL 

Rescue  Raiders  21.89 

Science  tool  kit  44.89 

Sensible  Gfammar  55.89 

Sensible  Speller  68,69 

Shape  Mechanic  20,69 

Sidewayi  38.89 

Silicon  Salad  12.69 

SkyJox  27.89 

SpeSlworks  29.89 
Springboard  Publisher   94,89 

Star  Fleet  I  (Flight)  33.69 

Sticky  Bear  ABC  22.89 

Car  Builder  23.69 

Drawing  22.89 

Math  1  or  2  22.69 

Math  Word  Prob.  22.69 

Music  22.89 

Numbers  22.89 

Printer  22.69 

Reading  22.89 

Rd.  Comprehension  22.89 

Spellgrabber  22.89 

Town  builder  22.69 

Typing  22.89 

Summer  Games  I  or  II  24.89 

Super  Mac  reworks  32.89 

Terrapin  Logo  63.89 

Think  Tank  79.89 

Thinkworks  59.89 

Tip  Disk  .^1  10.89 

Toy  Shop  38,89 

Trar^ylvania  13.89 

Trinity  24.89 

Triple-Dump  20.89 

turbo  Ditabist  Ttbx  44.89 

Turbo  Pascal  3,0  44.89 

Turbo  Tutor  21.89 

Type  28.89 

Ultima  111  or  IV  40.89 

Understanding  HE  17.69 

Utility  City  15.49 

Video  Toolbox  23.89 

VisableE502  31.75 

Wilderness  34.89 

Wizardry  31.89 

Wizard's  Toolbox  23,89 

Wizfrint  15.89 

Word  Handler  36.89 

Word  Perfect  64,89 

World's  Grist  Flball  24.89 

Write  Choice  24,89 
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Aerojet  22.89 

Air  Rescue  I  24.89 

Bard's  Tale  30.89 

Balibtajir  24,81 

Sack  to  Basics  134.89 

Bank  Street  Storybook  27.89 

Bank  Street  Speller  34J9 

Bank  Street  Writer  34.89 

Basic  Toolkit  29.89 

Blazing  Paddles  24,83 

Borrowed  Time  20.89 

Carmen  Sandiego  22.89 

Certificate  Maker  29.89 

Color  Me  20.89 

Cntdwn  to  Shtdwn  20.89 

Fast  Tracks  20,88 

Gato  20.83 

Gertrude's  Secreis  20,89 

G  I  Joe  24.89 

Graphics  Magician  27.88 

Grt  Amer  Road  Race  19,89 

Kacker  20,89 

J«1  27.88 

Jet  Combat  Simulator  20,89 

Karateka  22.89 

Kennedy  Approach  24.89 

Kung  Fu  20.89 

Little  Comp.  People  24,89 

Mail  Order  Monsters  24,89 

Merlin  34.89 

Mig  Alley  Ace  24.69 

Multlplan  64/128  43.89 

Nato  Commai^der  22.89 

Paperclip  41.69 

Print  Shop  29.69 

Print  Shop  Comp.  21.88 

Pr,  ShopGr.  1.2,or3  15.89 

Rescue  on  Fractalus  24.89 

Scrabble  27,89 

Sideways  20,89 

Silent  S«rvice  22,89 

Spitfire  Act  20.89 

Spreadsheet  34.89 

Sticky  Bear  ABC  20.89 

Numbers  20,89 

Opposites  20.89 

Shapes  20.89 

Surnmer  Games  I  or  1)  24,89 

Temple  of  Apshal  Tril.  24.89 

Toy  Shop  39.89 

Transformer*  24,89 

Worid  Games  24.89 

Worid's  Gnsi  Bsball  24.89 

Worid's  Grtsl  Ftball  24.B9 


Ballyhoo 

Clip  Art  {Vol  1  or  3) 

aip  Art  m  2) 

Copy  II* 

Crossword  Magic 
Crusade  in  Europe 
Cutthroats 
Early  Games 
Easy  as  ABC's 
Enchanter 
Family  Roots 
Fraction  Ficlofy 
F<1 5  Strike  Eagle 
Graphics  Eipan^^er 
Ghost  Busters 
Hitchhiker's  Guide 
Leather  Goddesses 
Load  Runner 
Magic  Spells 
Mastertype 
Math  Blaster 
Mtcro  Lg.  Baseball 
Micro  Lg.  Manager 
Micro  Lg.  Team 
Mind  Forever  Voy. 
Music  Constnjction 
Newsroom 
One-On-One 
Pitstop  II 
Planetfall 
Reader  Rabbit 
Sargon  III 
Sat  (Harcon  Brace) 
Sorcerer 
Speed  Reader  il 
Speltbreaker 
Spell  Jt 
Starcross 
Star  Trek  I  orll 
Suspect 
Tass  Times 
Ultima  III 

Temple  of  Apshai  Tri 
Trinity 

Typing  Tutor  Hi 
Will  Writer 
Winter  Games 
Wishbringer 
Witi«ss 
Word  Attack 
World's  Grttt  BsbaO 
Zorki 

Zork  11  or  111 
Zork  Trilogy 


24.89 
17.89 
24.89 
19.89 
31.89 
24.89 
24.89 
m89 
23.89 
24,89 
149.89 
11.89 
21.89 
24.89 
24.69 
24.69 
24.89 
22.89 
25,89 
26.89 
27.89 
24,89 
24.89 
13.89 
24.89 
12.89 
34.89 
12.89 
24.89 
24.89 
24.89 
31.89 
27,89 
27.89 
38.89 
30.89 
27.89 
30.89 
27,89 
27,89 
24.89 
40.89 
24.69 
24.89 
31.89 
28.69 
24,89 
24.89 
24.69 
27.89 
24.89 
24.89 
27.89 
46.89 


HARDWARE 

CompuServe  Slarler  24.69 

Datacase  7.89 

Disk  Notcher  4.89 

Ffp-n-Rle  10.89 

Lemon  27.89 

Lime  48.89 
APPLE  HARDWARE 
80  CoL  64K  Card  (II  E)    49.89 

Apple  Cat  II  114.89 

Disk  Drive  Cont  47.00 

Disk  Drive  Hi  Tech  119.89 

Gibson  Light  Pen  148.00 

Grappier  Buffeted  118.69 

Grappier  Pro  74.89 

Grappier  (serial)  74.19 

Grappier  C  74.69 

Hotifnk  14,69 

Knft  Joystick  HE  liC  23.69 

Koala  Pad  *  78.89 

Laser  128  Computer  389.00 

Uach  II  Joystick  28.69 

Mich  III  Joystick  34.69 

Uid)  IV  Joystick  59.89 

Micromodem  HE  139.69 

Mockingboard  A  or  B  64.69 

Mocklngboard  C  114,89 

Multlram  CX  512K  174.00 

HulUram  HE  80/64K  119.00 

Mouse  House  7.49 

Mouse  Mat  6.49 

Paddlesticks  28.50 

Pifaiiel  Printer  Card  44.69 

Prometfwus  1200A  254.69 

Print-it  122.89 

Ramfactof  51 2K  219.69 

Ramfactor  1  MEG  289.69 

Ramwort3  64K  139.89 

Ramworks  51 2K  199.89 

Rimworks  1  MEG  269.89 

Sup«r  Serial  Card  89.69 

SjfStem  Saver  Fan  58.89 

Tliunder  Ctock  109.69 

Wildcard  II  74.89 

ZEE  80A  Checkmale  54.89 

Zoom  HE  102.89 
PRINTERS 

Citizen  120D  174.69 

StarLV1210  189.89 

StarNX-10  249,89 

Printer  Stand  16.89 

Okidata  162P  229.69 

Okimale  20  209,89 

Printer  Ribbons  CALL 

Imagewriter  Black  4.49 

Imagewriter  Color  4.99 

imagewriter  II  Color  11.99 

Color  Paper  Patck  12,89 

Print  Shop  Refill  12.89 

MONITORS 

MagnavoxMonitors  CALL 

Amdek  Color  800  414,99 
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Charge  # 

Fx 

p.  Date, 

QTY, 

DESCRIPTION 

PRICE 

Compul 
Phone 

er  Type 

SHIPPING 

Mn 

TOTAL 

Add  S3  00  min  US,  shipping,  C.  0.0,  $5.00  OJitra.  Hawaii  and  Alaska  S4  85  mm  Orders 
outside  US,  are  not  insufed,  Canada  &  Mexico  %fM  mln,  $10.00.  Ail  otrier  counlries  2S% 


min  £30  00.  MasterCard.  Visa  and  school  purchase  ordara  accepted.  Personal  ctiecks  allow 
3  weeks.  5.5%  sale*  tax  tor  Ohio  residents.  Defective  reptacad  witnin  £0  dtays.  20%  restocking 
fee  if  not  replaced  wiith  same  litem.  Compatibility  not  guaranteed.  Prices  subject  to  ctiange 
DVithOLit  notice. 


Defender  Of  The  Crown  For  Amiga 


Neil  Randall 

Requirements:  Amiga  with  512K  mini- 
mum of  memory. 

Defender  of  the  Crown  is  the  Amiga  in- 
troduction to  Mindscape's  new  Cinema- 
ware  series.  Labeled  "interactive 
movies,"  the  Cinemaware  products  at- 
tempt to  capture  the  heroism  of  Holly- 
wood in  the  form  of  a  graphics 
adventure.  Defender  of  the  Crown  places 
you  in  the  role  of  an  English  noble  in  the 
swashbuckling  world  of  Robin  Hood,  a 
world  in  which  you  lead  armies,  joust  in 
tournaments,  and  rescue  ladies. 

By  far  the  strongest  feature  of  the 
Cinemaware  products  is  the  exception- 
al graphics.  From  its  opening  credits 
screen  to  the  spectacle  of  the  touma- 
menty  Defender  makes  full  use  of  the 
Amiga's  enormous  graphics  potential. 
The  pictures  almost  leap  off  the  moni- 
tor with  clarity,  color,  and  sheer  beauty, 
and  the  animation  is  frequently  good 
enough  to  achieve  the  game's  goal  of 
having  the  viewer  feel  part  of  a  movie. 
The  3-D  map  of  Britain,  the  pictures  of 
the  castles,  the  splendid  portrayal  of  the 
tournament — all  represent  the  finest 
artwork  produced  so  far  in  a  microcom- 
puter game. 

At  various  points  in  the  story,  for 
example,  you  set  out  to  rescue  a  Saxon 
lady  from  the  dastardly  Normans.  The 
game  places  your  character  in  the  court- 
yard of  a  castle,  in  which  each  brick  on 
the  wall  and  each  star  in  the  sky  is 
clearly  delineated.  Your  character, 
along  with  two  allies,  advances  toward 
three  defending  swordsmen.  If  you  win 
the  sword  fight,  you  move  inside  the 
castle,  thrusting,  slashing,  and  parrying 
your  way  up  a  flight  of  stone  steps  as 
the  torches  flicker  on  the  walls  behind 
you.  Once  past  this  guard,  you  enter  the 
castle's  interior,  where  the  frightened 
damsel  awaits  you.  The  sequence 
places  you,  finally,  in  front  of  a  fire- 
place, and  you  watch  two  silhouettes 
embrace  and  kiss.  True  to  old  Holly- 
wood, the  scene  tastefully  fades. 

Unfortunately,  Defender's  game- 
play  is  less  impressive.  In  one  turn  you 
can  recruit  your  home  army,  build  the 
campaign  army,  ride  in  search  of  con- 
quest, besiege  an  enemy  castle,  or 
launch  a  raid  against  an  enemy's  pos- 
sessions. You  are  constantly  endan- 
gered by  the  armies  of  the  other  nobles, 
and  as  the  game  moves  to  a  contest 
between  you  and  one  other  noble,  the 
opposing  army  can  grow  very  large  in- 
deed. But  where  a  good  war  game 
would  use  these  medieval  essentials  as 
the  basis  for  a  thoughtful  simulation. 


Mindscape's  Defender  of  the  Crown 
makes  full  use  of  the  Amiga's  graphics 
potential. 


Defender  oversimplifies  each  step.  Pow- 
er politics,  in  the  form  of  alliances  and 
treachery,  are  nowhere  to  be  seen,  and 
battles  offer  nothing  of  the  strategies 
and  tactics  of  the  period.  Even  the 
jousting  and  sword  fighting,  on  which 
the  game's  action  relies,  are  not  particu- 
larly enjoyable.  Defender  of  the  Crown 
rests  on  its  graphics,  and  this  fact  is 
both  its  strength  and  its  weakness. 

These  criticisms  are  perhaps  un- 
fair, since  Defender  is  not  an  attempt  at 
historical  simulation.  But  after  the  ini- 
tial dazzle  of  the  graphic  excellence 
subsides  a  bit  (it  never  leaves  complete- 
ly), the  game  isn't  nearly  as  enjoyable 
as  it  could  be.  It  is  fun,  and  its  historical 
flavor  is  undeniable,  but  it  leaves  me 
with  a  strong  hope  that  future  Cinema- 
ware productions  will  complement  the 
enormous  graphic  success  with  a  more 
solid  and  replayable  game.  Defender  of 
the  Crotun  is  a  must  for  any  Amiga 
owner,  because  with  it  you  begin  to 
understand  your  computer's  capabili- 
ties. But  it  could  have  been  even  better. 
When  superb  graphics  and  superb 
game  finally  merge,  as  they  surely  will 
in  a  future  Cinemaware  product,  com- 
puter gaming  will  never  be  the  same 
again.  For  now,  though,  buy  Defender, 
As  Hollywood  fantasy,  it's  as  good  as 
you  can  get. 

Defender  of  the  Crown 
Mindscape 
3444  Dundee  Rd, 
Northbrook  IL  S0062 
$49.95 


Championship 
Goif 

Neil  Randall 

Requirements:  Amiga  (reviewed  here), 
and  IBM  PC  and  compatible  computers. 

Among  the  sports  games  developed 
early  in  the  Amiga's  life  cycle,  golfing 
simulations  seem  to  dominate.  Leader 
Board  and  Mean  18  were  first  off  the  tee, 
each  with  its  own  touches  of  excellence 
and  each  gaining  its  own  following. 
Now  into  the  race  comes  Gamestar  (a 
subsidiary  of  Activision),  whose  Star 
League  Baseball  and  On-Court  Tennis 
showed  Commodore  64  and  eight-bit 
Atari  owners  what  their  machines  were 
capable  of.  Championship  Golf  for  the 
Amiga  goes  a  long  way  toward  demon- 
strating the  kind  of  simulations  we  can 
begin  to  expect  on  the  new,  higher- 
powered  personal  computers. 


Graphics,  animation,  and  excellent  play- 
ability  recommend  Gamestar's  Champi- 
onship Golf  (PC  version  shown  here). 


Remarkable  Graphics 

Championship  Golf  uses  a  split  screen  to 
simulate  the  intricacies  of  the  famous 
Pebble  Beach  course.  On  the  left  is  an 
overhead  shot  of  the  hole  you  are  play- 
ing, while  the  right  side  shows  the  same 
hole  from  the  golfer's  ground-level 
point  of  view.  Both  views  are  variable, 
though;  the  function  keys  let  you  zoom 
in  on  the  overhead  screen  and  step  back 
to  a  bird's-eye  view  on  the  other.  The 
graphics  detail  on  both  screens  is  re- 
markable, but  especially  interesting  are 
the  fractal  techniques  used  in  the 
ground-level  view.  Hills  and  slopes  are 
all  visible,  and  the  complexity  of  the 
course  becomes  obvious.  In  fact,  you  can 
position  the  golfer  anywhere  you  like  on 
the  hole,  and  the  graphics  will  be  re- 
drawn to  show  your  new  perspective.  In 
this  way,  you  can  walk  the  course. 

Once  you've  aimed  your  shot,  the 
left  screen  changes  to  allow  you  to 
choose  the  club  you  will  use  and  the 
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type  of  shot  you  will  take  (full  swing, 
chip,  or  putt).  For  all  shots,  the  com- 
puter acts  as  your  caddy,  suggesting 
club  and  shot  type.  After  this,  you  set 
your  stance  and  the  alignment  of  the 
clubface,  working  with  the  wind  to 
hook  or  slice  your  shot.  Finally,  the 
golfer  appears,  ready  to  swing  away 
(under  your  control).  The  graphics  are 
superb  here,  with  the  golfer's  anima- 
tion clear  and  accurate  right  down  to 
wrist  movement,  and  once  the  shot  is 
taken,  you  watch  the  ball  in  the 
ground-level  screen.  All  in  all,  the 
graphics  are  fully  worthy  of  the  Ami- 
ga's capabilities. 

In  addition  to  addressing  stance 
and  clubface  alignment,  you  have  the 
option  of  adding  arm  speed,  wrist  ac- 
tion, and  body  action  as  you  take  the 
shot.  As  in  real  golf,  these  activities 
must  be  learned  and  practiced,  and  also 
as  in  real  golf,  success  makes  you  feel 
extremely  good.  After  some  initial  in- 
eptness  in  which  you  watch  shot  after 
shot  dribble  off  the  tee,  you  will  sud- 
denly see  the  golfer  get  under  the  ball 
perfectly,  and  you  will  watch  the  ball 
disappear  above  the  height  of  the 
screen  and  land  farther  down  the  fair- 
way than  you've  managed  so  far.  With 
the  right  amount  of  practice,  you  can 
make  these  shots  fairly  regularly. 


Game  Options 

To  help  you  perfect  your  swing.  Cham- 
pionship Golf  includes  a  driving  range. 
Here  you  can  practice  teeing  off,  hitting 
from  the  rough  or  off  the  fairway,  chip- 
ping out  of  two  types  of  bunkers,  or 
putting  on  a  practice  green.  The  driving 
range  is  a  must  for  those  wanting  to 
become  expert  players,  even  those  ex- 
perienced in  real  golf.  While  Champion- 
ship Golf  seems  to  be  realistic,  it  is 
inevitably  different  from  actually 
swinging  a  golf  club. 

The  game  offers  several  other  op- 
tions. You  can  hit  from  three  different 
tee  placements,  you  can  carry  clubs  not 
normally  used  (2- wood  and  l-iron,  for 
example),  and  you  can  save  the  current 
game  to  disk.  Since  the  full  Pebble 
Beach  course  takes  a  fairly  long  time  to 
play  through,  saving  is  extremely 
convenient.  For  those  who  v^sh  to  see 
how  the  game  works,  pressing  RETURN 
and  FIO  through  the  shot  sequence  will 
provide  a  perfectly  respectable,  but 
hardly  awe-inspiring,  round. 

Championship  Golf  is  subtitled  Vol- 
ume One:  Pebble  Beach.  The  implication, 
clearly,  is  that  Gamestar  intends  to  issue 
other  volumes,  each  with  its  own  course. 
If  each  course  is  as  detailed  as  Pebble 
Beach,  1  can  easily  imagine  a  golfing  fan 
happily  buying  every  volume. 


The  system's  only  drawbacks  are 
the  amount  of  disk  access,  the  time 
taken  to  redraw  the  ground-level 
views,  and  the  strangely  undetailed 
putting  game.  The  gamemakers  could 
help  disk  access  by  allowing  those  with 
extra  memory  to  load  parts  of  the  pro- 
gram into  RAM;  they  could  also  im- 
prove the  putting.  Whether  or  not 
Gamestar  can  speed  up  the  redrawing 
is  relatively  unimportant;  the  ground- 
level  and  bird's-eye  views  are  spectacu- 
lar, and  well  worth  the  wait.  Champion- 
ship Golf  is  indeed  a  very  good  game. 

Championship  Golf 

Gamestar 

RO.  Box  7287 

Mountain  View,  CA  94039 

$39.95  Amiga  and  MS-DOS  versions 


We  Do  Windows...Quicklyl 
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m  WRITE  COMMODORE  BASIC  PROGRAMS  FOR  C-MORE!! 
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or  mail  $49.95  plus  $4.50  shipping  &  handling 

($6.00  shipping  in  Canada) 

(Georgia  residents  add  $2.00  sales  tax) 
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it.  Voice  Master  gives 
both  speech  output 
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comnnonds.  Vertxal  response  back  gives  status,  verifies,  or  requests  your 
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Can  or  write  for  HfEE  Voice  Master  Infopak 
and  special  combination  paclcage  offers. 
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June  1987     COMPUTEl     61 


Super  Hi-Res 

Graphics  And  Sound 

On  The  Apple  IIGS 


William  B.  Sanders 


The  IlGS,  the  newest  computer  in  the 
Apple  11  line,  is  aptly  named.  Its  su- 
perb graphics  and  sound—hence,  GS — 
make  this  computer  the  most  exciting 
machine  in  the  Apple  11  line.  Com- 
mercial software  developers  are  mov- 
ing quickly  to  take  advantage  of  these 
features.  For  amateur  programmers, 
the  GS  also  opens  up  new  areas  to 
explore.  Here's  an  overview  of  the 
IlGS's  amazing  super  high-resolution 
color  graphics  and  powerful  sound 
capabilities,  excerpted  from  William 
B,  Sanders'  recently  published  booK 
The  Elementary  Apple  IlGS,  from 
COMPUTE!  Books. 


Your  IlGS  has  made  a  quantum  leap 
over  the  other  Apple  lis  when  it 
comes  to  graphics  and  sound.  The 
reason  is  that  it  can  place  pixels  on  a 
640  X  200-dot  matrix  for  four-color 
programs  to  gain  the  highest  resolu- 
tion on  an  Apple  II  yet.  And  it  has  an 
Ensoniq  sound  chip  for  creating  un- 
surpassed digitized  sound.  There  are 
some  excellent  programs  available 
for  accessing  these  new  features,  but 
you  cannot  easily  work  with  them 
directly  from  Applesoft  BASIC.  Ap- 
plesoft BASIC  remains  the  same  as  it 
has  always  been,  so  the  thousands 
of  programs  written  in  it  can  also 
run  on  the  llGS. 

Apple  has  made  it  simple  for 
advanced  programmers  to  use  the 
super  high-resolution  graphics  and 
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sound.  However,  because  of  the  ad- 
vanced skills  required  for  accessing 
the  "toolboxes/'  we'll  introduce 
just  the  concepts  here  so  that  you 
can  get  an  idea  of  whether  you're 
interested  in  pursuing  the  advanced 
programming  levels  required  to  ac- 


cess the  IlGS's  super  high  resolution 
and  sound.  Remember,  there  are 
application  programs  available  for 
you  to  do  all  of  this  without  any 
programming  skills  at  all.  However, 
you  might  find  doing  the  program- 
ming yourself  to  be  a  real  adventure. 


Figure  1:  Pixel  Matrix 
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Pixel  Associated 
With  Point 


The  QuickDraw  II  Toolbox: 
Super  Hi-Res  Graphics 

The  collective  set  of  the  subroutines 
built  into  the  IlGS  ROM  have  been 
named  QuickDraw  IL  By  making 
calls  to  these  routines,  you  can  cre- 
ate lines,  rectangles,  polygons,  arcs, 
and  other  figures.  With  the  toolbox 
routines  in  QuickDrav^  II,  much  of 
the  work  has  been  done  for  you. 

The  basic  building  block  of  the 
routines  is  the  pixel  matrix  made  up 
of  points  and  associated  pixels. 
Each  point  referenced  through  the 
toolbox  routines  has  an  associated 
pixel  above  and  to  the  left  of  the 
point.  A  pattern  is  composed  of  an  8 
X  8  matrix  of  points  and  pixels 
(Figure  1). 

Depending  on  the  values  asso- 
ciated with  a  given  pixel  matrix, 
different  patterns,  shapes,  and  fig- 
ures can  be  created.  The  boundaries 
of  the  drawings  created  in  Quick- 
Draw II  are  (-16384,-16384)  and 
(16383,16383)  on  a  Cartesian  ma- 
trix with  memory  space  of  32768  X 
32768  pixels.  Various  calls  made  in 
assembly  language,  C,  or  another 
language  that  can  easily  access  the 
QuickDraw  II  tools  are  used.  The 
calls  are  given  various  names  asso- 
ciated with  addresses  in  memory. 
Let's  look  at  some  of  these  calls  to 
get  an  idea  of  what  is  available  in 
tiie  graphics  toolbox  inside  your  IlGS. 

QuiclcDrow  ii  Calis 

The  first  set  of  functions  in  the 
QuickDraw  II  toolbox  is  intended 
for  housekeeping  purposes.  These 
functions  set  up  the  various  regis- 
ters and  pointers  to  allow  access  to 
the  graphics  tools.  They  include 
QDBootlnit,  which  initializes  the 
QuickDraw  II  tools  when  the  sys- 
tem is  booted;  QDStartup,  which 
initializes  QuickDraw  II  and  sets 
the  standard  port  and  clears  the 
screen;  and  QDShutDown,  which 
turns  QuickDraw  II  off  and  frees 
Uie  buffers,  QDVersion  and  QDSta- 
tus,  respectively,  provide  infor- 
mation on  the  version  of 
QuickDraw  II  and  specify  whether 
or  not  it  is  active. 

A  second  set  of  QuickDraw  II 
routines  allows  you  to  control  the 
characteristics  of  the  screen  display. 
Each  of  the  200  horizontal  scan 
lines  that  make  make  up  the  display 
has  its  own  scan-line  control  byte 


(SCB),  so  the  characteristics  of  each 
line  can  be  specified  independent- 
ly. The  GetStandardSCB  routine  re- 
turns information  about  the  SCB. 
The  first  four  bits  (0^3)  are  used  for 
color  table  0;  bit  4  is  reserved;  bit  5 
controls  the  fill  option;  bit  6  speci- 
fies whether  an  interrupt  can  occur; 
and  bit  7  controls  the  color  mode 
(320  pixels  or  640  pixels).  The  call 
SetMasterSCB  sets  the  low  byte  of 
the  master  SCB,  and  GetMasterSCB 
returns  the  same  information. 
SetSCB,  GetSCB,  and  SetAllSCBs 
are  further  scan -line  control-byte 
calls.  For  setting  the  color  table, 
either  in  the  320  or  640  mode,  the 
InitColorTable  call  is  used.  Table  1 
lists  the  values  (in  hexadecimal)  for 
the  two  modes. 

Calls   to  SetColorTable,  Get- 


ColorTable,  SetColorEntry,  and 
GetColorEntiry  all  access  the  rou- 
tines to  set  and  get  information 
about  the  colors. 

The  other  global  calls  deal  v^th 
the  fonts,  clearing  the  screen,  and 
turning  the  super  hi-res  graphics 
mode  on  and  off.  The  calls  include 
SetSysFont,  GetSysFont,  Clear- 
Screen,  GrafOn,  and  GrafOff.  The 
functions  of  the  calls  are  fairly  self- 
explanatory,  making  it  easier  to  use 
the  graphics  than  to  use  more  ob- 
tuse codes. 

Port  Of  Cails 

Now  you  have  some  idea  of  a  few 
of  the  functions  and  how  the  name 
of  the  call  is  connected  to  the  func- 
tions. For  the  rest  of  the  QuickDraw 
II  functions,  refer  to  Table  2,  just  to 


Table  1 :  Hexadecimal  Values  For  Setting  Color  Table 


320  Mode 

Pixel      Color 


$0 

$1 
$2 
$3 
$4 
$5 
$6 
$7 
$8 
$9 
$A 
$B 
$C 
$D 
$E 


Black 

Dark  gray 

Brown 

Purple 

Blue 

Dark  green 

Orange 

Red 

Hesh 

YeUow 

Green 

Light  blue 

Lilac 

Periwinkle  blue 

Light  gray 


Code 

0    0 

7    7 


640  Mode 

Pixel      Color 


8 
7 
0 
0 
F 
D 
F 
F 
0 
4 
D 
7 
C 


$0 
$1 

$2 
$3 
$4 
$5 
$6 
$7 
$8 
$9 
$A 
$B 
$C 
$D 
$E 
$F 


Black 

Red 

Green 

White 

Black 

Blue 

Yellow 

White 

Black 

Red 

Green 

White 

Black 

Blue 

Yellow 

White 


Code 

0    0 
0     0 


0    0 
F    F 


0    0 
F    0 


0  0 
F  F 
F    F 


Table  2:  GrafPorf  Calls 


OpenPort 

SetPortLoc 

MovePortTo 

HidePen 

SetPenSize 

GetPenPat 

GetBackPat 

Move 

GetFontlnfo 

SetTextFace 

GetSpaceExtra 

SetBackColor 

RestoreBufDims 

SetVisHandle 

GetRgnSave 

SetUserField 


InitPort 

GetPortLoc 

SetOrigin 

ShowPen 

GetPensize 

SetSolidPenPat 

SetSolidBackPat 

SelFont 

GetFGSize 

GetTextFace 

SetCharExtra 

GetBackColor 

SetClipHandle 

GetVisHandle 

SetPolySave 

GetUserField 


QosePort 

SetPortRect 

SetClip 

GetPen 

SetPenMode 

SetPenMask 

SolidPattem 

GetFont 

GetFontGlobals 

SetTextMode 

GetSpaceExtra 

SetBufDims 

GetClipHandle 

SetPicSave 

GetPolySave 

SetSysField 


SetPort 

GetPortRect 

GetClip 

SetPenState 

GetPenMode 

GetPenMask 

PenNormal 

SetFontID 

SetFontFlags 

GetTextMode 

SetForeColor 

ForceBufDims 

SetVisRgn 

GetPicSave 

SetGrafProcs 

GetSysField 


GetPort 

SetPortSize 

ClipRect 

GetPenState 

SetPenPat 

SetBackPat 

MoveTo 

GetFontID 

GetFontFlags 

SetSpaceExtra 

GetForeColor 

SaveBufDims 

GetVisRgn 

SetRgnSave 

GetGrafProcs 
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see  the  extent  of  the  toolbox.  Fur- 
ther description  here  would  do  little 
good,  since  you  may  not  yet  have 
the  programming  skills  necessary 
to  use  the  calls. 

Drawing  Calls 

The  table  below  will  give  you  a 
better  idea  of  what  kinds  of  draw- 
ing shapes  are  supported  by  the 
QuickDraw  II  toolbox.  This  set  of 
calls  is  what  most  programmers 
will  use  often  when  they're  creating 
graphics  directly  or  when  they're 
writing  a  graphics  drawing 
program. 


By  looking  over  these  calls 
from  the  QuickDraw  II  toolbox,  you 
can  become  acquainted  with  what 
is  available  and  get  a  clue  as  to  the 
graphics  power  of  your  Apple  IlGS 
computer. 

The  Sound  Of  The  liGS 

The  Apple  IlGS  houses  a  5503  En- 
soniq  Digital  Oscillator  Chip 
(DOC).  The  DOC  has  32  digital 
oscillators  that  give  you  everything 
from  beeps  and  buzzes  to  a  talking 
computer  and  symphonic  orches- 
tra. However,  as  with  the  super 
high-resolution  graphics,  you  must 


Table  3:  Drowlng  Calls 


Lines 

LineTo 
Rectangles 

FrameRect 
Regions 

FrameRgn 

Polygons 
FramePoly 
Ovals 
FrameOval 


Line 

PaintRect 

PaintRgn 

PaintPoiy 

PaintOval 


Rounded-Corner  Rectangles 

FrameRRect        PaintRRect 
Arcs 

FrameArc  PaintArc 

Pixel  Transfers 
ScroURect  PaintPixels 

Text  Drawing  and  Measuring 
DrawChar  DrawText 

TextWidth  StringWidth 

StringBounds      CStringBounds 

Mapping  and  Scaling  Utilities 

MapPt  MapRect 


EraseRect 

EraseRgn 

ErasePoly 

EraseOval 

Erase  RRect 

EraseArc 

PPToPort 


DrawString 

CString  Width 


MapRgn 


InvertRect 
InvertRgn 
InvertPoly 
InvertOval 

InvertRRect 
InvertArc 


DrawCString 
CharBounds 


MapPoly 


FillRect 

FillRgn 
FillPoly 
FillOval 

FillRRect 
FillArc 


CharWidth 
TextBounds 


ScalePt 


MIsceltanoous  UHllties 

Rectangle  Calculations 

SetRect  OffsetRect    InsetRect  SectRect  UnionRect 

PtInRect  Pt2Rect  EqualRect  EmptyRect 

Point  Calculations 

AddPt  SubPt  SetPt  EqualPt 

LocalToGlobal 

GlobalToLocal 

Region  Calculations 

NewRgn  DisposeRgn 

SetRectRgn  RectRgn 

OffsetRgn 

InsetRgn  SectRgn 

XorRgn 

PtInRgn  RectlnRgn 

Polygon  Calculations 

Open  Poly  ClosePoly  KillPoIy  OffsetPoly 

Other 

Random  SetRandSeed  GetPixel 


CopyRgn 
OpenRgn 

SetEmptyRgn 
CloseRgn 

UnionRgn 

DiffRgn 

EqualRgn 

Empty  Rgn 

use  the  DOC  toolbox  to  take  full 
advantage  of  this  feature. 

To  get  started,  let's  look  quick- 
ly at  the  registers  used  to  control 
the  sounds  in  DOC. 

Frequency  control  (low  and 
high).  Two  registers  control  fre- 
quency; joined  together  they  form  a 
16-bit  value  used  for  the  24'bit  ac- 
cumulator. The  value  of  this  regis- 
ter pair  is  added  to  the  current  value 
stored  in  the  24-bit  accumulator. 


Address: 


$00-$ IF 
$20-'$3F 


(low) 
(high) 

Volume.  This  register  set  con- 
trols the  volume  level  of  the  sound 
created. 

Address;       $40-$5F 

Waveform  data  sample.  This 
reads  the  last  value  from  the  wave- 
form table. 
Address:       $60-$7F 

Address  pointer.  These  regis- 
ters are  used  to  determine  where  in 
RAM  the  waveform  tables  are  lo- 
cated. Each  waveform  table  begins 
with  the  first  address  of  a  page  and 
must  continue  upward  through 
RAM  and  cannot  wrap  around  over 
64K.  The  register  keeps  track  of 
where  the  table  ends. 
Address;       $80-9F 

Control  register.  Channel  as- 
signment, oscillator  mode,  and  halt 

bit  are  all  controlled  by  this  register. 
Bits  4-7  make  up  the  channel  as- 
signment. Those  four  bits  can  assign 
up  to  16  channels  for  sound.  Bit  3  is 
the  interrupt  enable  used  for  order- 
ing output  when  more  than  a  single 
oscillator  has  generated  output.  It 
helps  keep  all  the  different  sounds 
organized.  Bits  1  and  2  set  the  oscil- 
lating mode  for  each  oscillator,  and 
bit  0  is  the  halt  bit  indicating  when 
an  oscillator  has  been  stopped  by 
the  microprocessor  or  DO  (I. 
Address;       $AO-$BF 

Bank  select/ re  solution/ 
waveform  registers.  Each  register 
uses  seven  bits  for  controlling  three 
major  functions  (bit  7  is  not  used). 
Bit  6  determines  whether  the  DOC 
address  range  is  0-64K  (0)  or 
65-1 28K  (1).  Bits  3-5  specify  the 
size  of  the  waveform  table,  ranging 
from  256  bytes  to  32K  bytes.  Final- 
ly, bits  0-2,  called  the  resolution 
determination  bits,  actually  deter- 
mine the  final  address  for  the  wave- 
form table. 
Address:       $CO-$DF 
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Oscillator  interrupt,  oscilla- 
tor  enable^    and   A/D   converter 

registers.  These  three  registers  (not 
bits)    control    the    oscillators    and 
analog-to-digital  conversion. 
Address:      $E0-$E2 

Sound  Tools 

From  the  above  brief  description  of 
the  sound  registers  and  the  digital 
oscillator  chip,  you  can  see  that  it's 
not  simple  to  crank  up  the  kinds  of 
sound  heard  in  musical  demonstra- 
tions on  the  IlGS.  As  an  aid  to  pro- 
grammers, the  sound  tools  have 
been  provided.  There  are  18  sound 
function  calls  and  six  low-level  rou- 
tines for  accessing  the  power  of 
DOC.  The  sound  toolkit  works 
through  a  sound  tool  set  with  a 
specified  number.  The  tool  locator 
finds  this  number  in  order  to  use 
the  sound  tools.  Again,  this  re- 
quires a  higher  level  of  program- 
ming skills  than  you  may  now 
possess,  but  to  give  you  an  idea  of 
what's  in  the  sound  tool  set,  the 
calls  in  Table  4  are  available. 

Table  4:  Sound  Tool  Colls 

Function  Calls 

SoundStartup 

SoundVersion 

SoundToolStatus 

ReadRamBlock 

GetSoundVolume 

FFStartSound 

FFSoundStatus 

SetSoundMIRQV 

FFSoundDoneStatus 


SoundBootlnit 

SoundShutdonw 

SoundReset 

WriteRamBlock 

GetTableAddress 

SetSoundVolume 

FFStopSound 

FFG  enera  torStatus 

SetUserSoundlRQV 

Low-Level  Routines 

Read  Register 
Read  Ram 
Read  Next 


Write  Register 
Write  Ram 
Write  Next 


For  some  of  you,  it  may  be 
frustrating  not  to  be  able  to  program 
sound  and  super  high-resolution 
graphics  on  your  IlGS  with  what 
you  now  know  about  program- 
ming, but  be  patient.  You  will  learn 
the  more  advanced  techniques  in 
time.  Books  and  programming  utili- 
ties will  be  available  in  the  future  to 
help  you.  @ 


CAPUTE! 


Label  Master 

This  Commodore  64  program  from 
the  February  issue  (p.  56)  and  on 
the  COMPUTE!  Disk  for  February- 
April  works  properly  on  very  old 
64s  with  version  1  ROMs  and  on 
newer  64s  with  version  3  ROMs — 
including  the  64C  and  the  128  in  64 
mode.  However,  the  graphic-design 
grid  doesn't  appear  on  older  64s 
with  version  2  ROMs.  To  check 
which  ROM  version  your  64  has, 
enter  PRINT  PEEK(65408).  If  the 
value  returned  is  0,  your  ROMs  are 
version  2.  (A  value  of  170  indicates 
version  1,  and  a  value  of  3  indicates 
version  3,) 

When  the  screen  is  cleared, 
version  2  fills  color  memory  with 
the  screen  background  color.  Since 
"Label  Master"  makes  no  provision 
for  changing  color  memory,  charac- 
ters stored  into  screen  memory  are 
the  same  color  as  the  background, 
and  hence  are  invisible.  The  follow- 
ing patches  modify  this  program  to 
work  with  version  2  ROMs.  To 
make  the  changes,  first  load  a  com- 
plete copy  of  Label  Master  into 
"MLX"  using  the  starting  and  end- 
ing addresses  given  in  the  article. 
Next,  select  the  (E)nter  data  option, 
specify  an  address  of  0801,  and  en- 
ter the  following  lines: 

0801 ;0B  08  0A  00  9E  32  30  37  2F 

0809:37  00  00  00  A9  01  8D  21  42 

0811:D0  A9  93  20  D2  FF  A9  00  52 

0819 :8D  21  D0  60  A9  02  85  FD  B6 

0821 ;8D  20  D0  A9  50  85  FB  A9  EE 

0829:04  85  FC  18  20  0D  08  A0  A3 

Then  change  the  entry  address  to 
09E9  and  enter  this  line: 

09E9:00    20    0D   08    A0    00    B9    FD    9C 

Change  the  entry  address  to  OAFl 
and  enter  this  line: 

0AF1:00    20    0D    08    20    7B    0B   A9    DE 

Finally,  save  a  copy  of  the  modified 
Label  Master  data  before  exiting 
from  MLX. 


Menu  Planner  For  The 
Commodore  64 

The  64  version  of  this  program 
from  the  April  1987  issue  (p.  60} 
has  a  number  of  mistakes  in  the 
routine  which  sends  menu  lists  to  a 
printer.  To  properly  print  menus, 
change  the  following  lines: 

610  PRINT " MENU :":IFA$="P"THEN0 

PEN4 ,  4  s  CMD4 :  PRINTSPC  ( 45  )  '*0N 

HAND {4  SPACES] NEED  TO  BUY" 

640  IFA$=''R"THEN  GETA$  j  IFA$="  " 
THEN640 

660  IFA$="P"THENPRINT#4:CL0SE4 


Superplolfer 

Line  940  of  this  Commodore  64 
graphics  program  in  the  March  1987 
issue  (p.  120)  includes  the  delete 
({DEL})  character,  which  can't  be 
typed  in  the  usual  way.  To  produce 
this  character,  use  the  cursor  keys  to 
move  the  cursor  to  the  spot  in  the 
line  where  the  (DEL}  is  to  be  insert- 
ed, use  the  5H1FT-1NST/DEL  key 
combination  to  insert  a  space,  and 
then  press  INST/DEL  again  (with- 
out SHIFT).  The  delete  character 
will  appear  as  a  reverse-video  T,  ® 


Back  Issues  of 

COMPUTEL 

COMPUTErs  Gazette. 

or  any  magazine  disks 

can  be  ordered  by 

caliing  800-346-6767 

(in  NY  212-887-8525). 

Some  issues  may  no 

longer  be  avaiiable. 
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Computers  and  Society 


David  D.  Thornburg,  Associate  Editor 


A  Nation  Of  Thieves:  Responses  To  Readers 


Last  October  I  wrote  what,  in  my 
view  anyway,  was  a  fairly  calmly 
written  piece  on  the  illicit  copying 
of  software.  I  mentioned  the  impact 
that  illicit  copying  had  on  software 
companies  and  on  those  of  us  who 
choose  to  obey  federal  law  on  this 
topic.  Based  on  letters  I  received, 
one  would  have  thought  that  I  was 
attacking  motherhood! 

1  knew  I  was  in  trouble  the  day 
I  went  to  my  post  office  box  and  all  I 
saw  was  a  pink  card  instructing  me 
to  pick  up  my  mail  at  the  counter. 
Over  the  weeks  following  the  pub- 
lication of  that  article,  my  accumu- 
lated mail  on  this  topic  filled  a  #3 
mailbag.  People  wrote  from  as  far 
away  as  Sweden  to  challenge  my 
position. 

Of  the  letters  received,  only 
two  readers  wrote  to  thank  me  for 
sensitizing  them  to  a  major  industry 
problem — and,  no,  these  people 
were  not  mouthpieces  for  the  soft- 
ware companies.  I  decided  to  read 
each  letter.  Some  readers  got  side- 
tracked from  the  issue  and  attacked 
me  personally,  at  which  point  their 
letters  were  (generally)  discarded. 

I  placed  the  remainder  of  the 
letters  in  several  piles  based  on  the 
general  themes  of  the  arguments 
presented.  The  remainder  of  this 
article  summarizes  the  main  argu- 
ments against  my  position  and  in- 
cludes my  responses. 

Letter  writers  are  identified 
only  by  initials  for  two  reasons. 
First,  some  of  you  admitted  to  acts 
that  are  punishable  by  incarcera- 
tion in  a  federal  penetentiary,  and  I 
felt  it  to  be  in  your  best  interest  if  I 
excerpted  what  I  needed  from  your 
letter  and  shredded  the  rest.  Sec- 
ond, there  was  not  a  great  deal  of 
novelty  in  the  responses,  so  any 
point  one  reader  might  have  made 
was  also  made  by  others. 

I  also  have  taken  the  liberty  to 
change  some  of  the  language  of  the 
arguments  so  they  can  be  printed  in 


a  family  magazine. 

The  "Service  To  Society" 
Argument 

'"Why  is  it  that  software  publishers 
seem  to  think  that  they  are  any  differ- 
ent  than  the  guy  who  writes  some 
worthwhile  book?  For  centuries  the 
world  has  known  that  authors  are 
generally  underpaid  and  underappre- 
ciated, and  yet  there  is  no  great  outcry 
in  their  favor. 

Who  has  more  intellectual  power 
invested:  The  guy  who  writes  a 
straightforward  spreadsheet  such  as 
Lotus  1-2-3  or  the  guy  who  writes  a 
book  such  as  War  and  Peace?  /  would 
suggest  it  is  the  latter/' — DB 

Well,  DB,  everyone  I  know 
who  writes  a  worthwhile  book  ex- 
pects to  get  paid  for  his  or  her  ef- 
forts, and  usually  does.  Yes,  history 
is  full  of  examples  of  authors  who 
didn't  get  rich  from  their  efforts,  but 
there  are  plenty  that  do.  I  know  a 
science  fiction  author  who  gets 
$1,000,000  advances  for  his  books, 
and  his  case  is  not  that  uncommon. 
If  you  write  a  book  that  becomes  a 
best  seller,  you  bring  in  big  bucks, 
period.  Fortunately,  books  are  ex- 
pensive to  copy — but  programs 
aren't,  so  software  gets  ripped  off. 

Your  second  question  has  a 
very  simple  answer,  the  "guy"  (ac- 
tually an  entire  company)  that 
wrote  Lotus  1-2-3  has  a  lot  more 
energy  invested  than  Tolstoy  ever 
put  into  War  and  Peace,  For  ex- 
ample, Tolstoy's  hand-written 
drafts  had  lots  of  mistakes,  some  of 
which  made  it  into  the  published 
version  of  the  book.  The  reviews  of 
his  work  never  mentioned  the  mis- 
spelled word  on  page  315  or  the 
awkward  phrase  on  page  74. 
"Bugs"  of  this  nature  cause  havoc 
in  a  computer  program,  but  are  per- 
fectly acceptable  in  a  book.  The 
consequences  of  typing  errors  in 
books  is  benign — you  may  wince 
(depending  on  your  fluency  in  Rus- 


sian), but  you  forgive  Tolstoy  all 
the  same. 

This  is  not  the  case  with  com- 
puter software,  A  typing  error  may 
result  in  a  subtle  bug  that  takes 
weeks  to  fix.  In  the  meantime,  the 
users  keep  complaining  and  re- 
questing a  free  upgrade  once  the 
bugs  are  fixed.  I  agree  that  free 
upgrades  are  appropriate  for  soft- 
ware, and  I  do  not  expect  publish- 
ers to  send  revised  editions  of 
books  to  their  old  customers  at  no 
cost — even  though  the  parallel  that 
some  readers  imply  would  require 
such  service. 

No,  the  point  is  that  the.  pub- 
lishing of  software  is  quite  different 
from  the  publishing  of  books.  I 
know  this  because  I  do  both,  and 
books,  comparatively,  are  a  snap  to 
publish! 

Let's  pretend  that  Tolstoy  had 
to  follow  the  path  of  a  software 
publisher  when  he  wrote  his  epic 
novel.  First,  he  would  have  had  to 
create  several  releases  of  his  book 
to  repair  his  "bugs."  Then,  he 
would  have  to  immediately  start 
working  on  his  next  book,  knowing 
that  if  he  didn't  improve  on  his 
product,  others  would.  Most  of  his 
profits  would  have  to  be  placed  into 
this  new  venture. 

Compared  to  software  authors, 
book  authors  have  it  made. 

The  "Mouthpiece  For  Big 
Business"  Argument 

Now  that  you  former  hackers  have  hit 
the  big  time,  you've  developed  vested 
interests  in  protecting  the  vendors  to 
the  detriment  of  the  consumers.  The 
real  thieves  are  the  companies  that 
can  charge  outrageous  prices  for  pro- 
grams that  are  guaranteed  not  to 
work.  What  other  industry  do  you 
know  that  will  sell  a  product  and  not 
make  full  refunds  on  defective 
merchandise? 

Your  blanket  statement  that 
copying  software  is  illegal  is  tanta- 
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mount  to  saying  that  no  one  has  the 
right  to  free  speech, — WM 

You  bet  we  have  vested  inter- 
estS/  just  like  the  kid  who  was  will- 
ing to  play  sandlot  ball  for  free,  but 
who  now  gets  hundreds  of  thou- 
sands of  dollars  a  year  as  a  pro.  Tm 
sorry,  but  this  argument  just 
doesn't  work.  I've  never  seen  a  soft- 
ware company  put  out  a  product 
guaranteed  not  to  work;  nor  have  I 
encountered  a  company  that  was 
unwilling  to  refund  a  customer's 
money  when  the  product  was  re- 
turned in  a  timely  rnanner  with 
documentation  to  support  its  re- 
turn. I  say  this  even  though  there 
are  some  people  who  will  buy  a 
product,  make  a  copy,  and  then 
return  the  product  because  ''it 
doesn't  meet  their  needs/' 

As  for  my  blanket  statement,  I 
was  very  careful  to  level  my  criti- 
cism at  those  who  copy  to  secure 
software  that  they  haven't  pur- 
chased. Backup  copies,  media  con- 
version, and  so  forth,  are  all  within 
the  domain  of  reasonable  copying, 
and  do  not  (to  my  knowledge)  vio- 
late any  laws. 

The  "Software  Is  Lousy,  So 
Why  Buy  It?'*  Argument 

The  list  of  lousy  software  that  read- 
ers came  up  with  was  quite  large.  A 
typical  comment  went  like  this: 

You  bet  I  have  an  illegal  copy  of  XXX; 
it  is  a  piece  of  trash.  For  example, 

every  time  I  boot  the  program  1  have 
to  enter  a  bunch  of  preferences  all 
over  again.  Why  didn't  the  developer 
let  you  save  your  preferences  on  disk? 
It  wouldn't  matter  to  me  if  I  used  the 
program  infrecjuently,  but  I  use  it  ev- 
ery day  and  this  is  a  pain  in  the  tail 

This  comment — ^synthesized 
from  several  letters — presents  an 
interesting  definition  of  trash.  Ev- 
ery morning  I  empty  the  trash  so  it 
won't  smell  up  the  house.  Trash  is 
something  you  throw  away^  not 
something  you  "use  every  day." 
The  "trash"  argument  is  just  a  thin- 
ly veiled  disguise  for  the  feeling  of 
guilt  that  these  readers  must  be 
experiencing. 

By  the  way,  "legal"  users  of 
your  programs  have  probably  re- 
ceived upgrades  that  fix  the  prob- 
lems you  mentioned  in  your  letters. 


The  Real  Issue 

Behind  the  anger  expressed  in  many 
of  your  letters  lies  a  real  issue  that 
needs  to  be  resolved.  Many  of  you 
feel  that  software  vendors  aren't  re- 
sponsive to  your  legitimate  needs. 
The  products  don't  live  up  to  expec- 
tations, the  documentation  is  full  of 
errors,  the  product's  function 
doesn't  justify  its  cost,  and  so  on.  All 
of  these  are  legitimate  complaints 
that  should  be  addressed  to  the  soft- 
ware publishers.  By  communicating 
with  these  people  directly,  you 
stand  an  excellent  chance  of  seeing 
your  ideas  incorporated  in  new  re- 
leases of  the  product.  I  always  send 
free  copies  of  my  programs  to  peo- 
ple whose  suggestions  I  have  incor- 
porated,  and  this  is  not  an 
uncommon  practice  in  this  industry. 
If  you  feel  that  the  software 
vendors  aren't  listening,  maybe  this 
is  because  you  aren't  speaking  to 
them.  By  sneaking  around  behind 
the  vendor's  back  and  stealing  soft- 
ware, you  are  losing  any  chance 
you  ever  had  to  make  sure  that  the 
programs  you  really  want  will  ever 
make  it  to  the  marketplace. 


Dr.  Thornburg's  most  recent  product  is 
Calliope™,  a  "non-lineaf  idea  processor 
for  the  Apple  He,  c,  GS,  and  Macintosh 
computers.  He  welcomes  letters  from 
readers  and  can  be  reached  in  care  of  this 
magazine.  © 


COMPUTEI's  Gazette  is  look- 
ing for  utilities,  games, 
applications,  educational  pro- 
grams, and  tutorial  articles.  If 
you've  created  a  program  that 
you  think  other  readers  might 
enjoy  or  find  useful,  send  it, 
on  tape  or  disk,  to: 

Submissions  Reviewer 
COMPUTE!  Publications 
P.O.  Box  5406 
Greensboro,  NC  27403 

Please  enclose  an  SASE  if  you 

wish  to  have  the  materials 

returned. 

Articles  are  reviewed  within 

four  weeks  of  submission. 


Train  for  the  Fastest  Growing  Job  SMUin  America 


Only  NRI  teaches  you  to  service  all 
computers  as  you  build  your  own  fully 
IBM-PC  compatible  microcomputer 

Now  you  get  it  all . . .  training  for  America's  fastest 
growing  career  opportunity . . .  training  to  service 
all  computers . .  -  training  on  the  newest  total 
computer  system,  the  Sanyo  880,  yours  to  keep. 

Get  inside  thenewestt  fuUy  IBM-PC 
compatible  Sanyo  Microcomputer 

As  an  NRI  student,  you'll  get  total  hands- 
on  training  as  you  actually  build  the  latest 
model  Sanyo  880  Series  computer  from  the 
keyboard  up.  It's  fuUy  IBM  PC  compatible  and,  best  of 
all,  it  runs  programs  ahnost  twice  as  fast  as  an  IBM  PC. 
As  you  assemble  the  Sanyo  880,  you'll  perform  demon- 
strations and  experiments  that  will  give  you  a  total 
mastery  of  computer  operation  and  servicing  tech- 
niques. You'll  do  programming  in  BASIC  language- 
even  nm  and  interpret  essential  diagnostic  software. 

Learn  at  home  in  your  spare  time 

You  train  in  your  own  home  at  your  convenience, 
backed  at  all  times  by  your  NRI  instructor  and 
the  entire  NRI  staff  of  educators  and  support  people. 
They're  always  ready  to  answer  your  questions  and  to 
give  you  guidance  and  special  help  wherever  you  need  it. 

lOO^page,  free  catalog  tdls  more . . .  send  today 

Send  the  coupon  today  for  NRI 's  100-page  catalog 
that  gives  all  the  facts  about  computer  training  plus 
career  training  in  other  electronics  iields. 


^^XW School  of  Electronics 

McGraw-Hill  Continuing  Education  Center 
3939  Wisconsin  Ave.,  Washington,  D.C.  20016 
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Telecomputing  Today 


Arlan  R.  Levitan 


Lapping  It  Up 


The  face  of  mobile  telecomputing  is 
changing.  I've  owned  a  Tandy  100 
laptop  for  several  years.  When  first 
introduced,  the  Model  100  signifi- 
candy  expanded  the  freedom  of  a 
generation  of  journalists.  Its  porta- 
bility and  built-in  300-bps  modem 
made  it  possible  to  write  and  trans- 
mit a  story  on  the  spot.  A  new  wave 
of  battery-powered  PC-compatible 
laptop  machines — which  overcome 
the  small  display  and  memory  limi- 
tations of  the  Model  100  with  full- 
sized  screens  and  640K  of  memory — 
is  swelling  the  ranks  of  mobile  tele- 
computers.  If  you've  been  thinking 
of  joining  them,  here's  some  friend- 
ly advice. 

Most  PC  laptops  offer  300-/ 
1200-bps  internal  modems  as  an 
opdon.  They  are  somewhat  pricey, 
listing  for  $400  or  so,  and  place  an 
additional  drain  on  the  laptop's  bat- 
teries, shortening  the  amount  of  us- 
able  time  between  charges. 
Compact  and  attractively  priced, 
battery-powered  modems  are  via- 
ble alternatives  to  internal  laptop 
units.  Most  notable  at  this  time  are 
Touchbase  System's  WorldPort  1200 
($199)  and  Migent's  Pocket  Modem 
($259).  Both  are  compatible  with 
the  Hayes  command  set;  about  the 
size  of  a  pack  of  cigarettes,  they 
plug  directly  into  any  computer's 
serial  port.  They  can  be  powered 
from  an  internal  battery  when 
you're  on  the  go,  or  from  an  AC 
adapter  when  an  electrical  outlet  is 
handy.  A  pocket  modem  is  a  good 
choice  if  you  are  on  a  limited  budget 
or  want  to  use  your  modem  with 
more  than  one  computer.  If  you're 
completely  immersed  in  the  porta- 
bility gestalt,  an  internal  modem 
means  one  less  item  to  lug  around. 

When  I'm  on  the  run,  treating 
work  gear  gingerly  is  usually  the 
last  thing  on  my  mind.  Since  uncer- 
emonious dunks  and  tosses  into  car 
trunks  are  a  fact  of  life  for  telecom- 
puting on  the  hoof;  a  suitable  carry- 


ing case  is  a  must  Most  of  the 
carrying  cases  offered  by  the  laptop 
manufacturers  themselves  offer  lit- 
tle real  protection  and  stubbornly 
refuse  to  acknowledge  the  fact  that 
you  may  want  to  carry  anything 
other  than  your  computer.  More 
often  then  not,  well-padded  cases 
designed  for  photographic  equip- 
ment can  be  pressed  into  laptop 
service  with  little  or  no  compro- 
mise. Fans  of  "Miami  Vice"  will  opt 
for  the  polished  aluminum,  high- 
tech  look  of  Halliburton  Zero  cases. 
Since  my  trusty  Volvo  is  decidedly 
less  flashy  than  a  Ferrari,  I  went  for 
a  sedate  nylon  LowePro  Trimtech 
photographer's  case  that  has 
enough  padding  to  insure  surviv- 
ability in  environments  short  of  a 
direct  nuclear  strike;  plenty  of  room 
for  accessories,  business  papers, 
and  manuals;  and  a  fold-down  "of- 
fice" for  storing  disks,  writing 
implements,  business  cards,  and 
other  goodies. 

You  Can't  Get  There 
From  Here 

Then  there's  the  problem  of  moving 
data  between  your  laptop  and  desk 
machine.  Most  desktop  PCs  are 
equipped  with  5  ¥4 -inch  disks,  while 
the  current  breed  of  laptops  use  ZVi- 
inch  microdisks.  In  order  to  bridge 
the  gap,  many  laptops  offer  external 
5y4-inch  disk  drives  as  optional  ac- 
cessories, and  a  3V2-inch  disk  drive 
can  be  added  to  almost  any  PC  com- 
patible. Adding  an  internal  micro- 
disk to  your  PC  is  not  too  expensive 
(about  $200),  but  limits  your  data 
transfers  to  wherever  your  desktop 
computer  sits.  An  external  drive  for 
a  laptop  is  more  expensive  (about 
$400)  and  saddles  you  with  another 
relatively  bulky  piece  of  equipment 
to  lug  around.  Remember,  in  the 
laptop  world,  as  in  Bauhaus  archi- 
tecture and  California  politics,  "Less 
is  more." 

The  humble  standard  RS-232 


serial  port  found  on  almost  all  PCs 
offers  efficient,  reasonably  priced 
alternatives  for  laptop-to-PC  file 
transfers.  Using  standard  public  do- 
main or  "shareware"  telecommuni- 
cations software  and  a  null  modem 
cable  lets  you  move  files  between 
machines  at  speeds  of  up  to  19,200 
bits  per  second.  White  Crane  Sys- 
tem's Brooklyn  Bridge  software 
($129.95)  makes  file  movement  be- 
tween laptop  and  desktop  PCs  even 
more  of  a  snap.  Bridge  lets  either 
machine  access  the  other's  drives 
directly,  using  standard  DOS  com- 
mands. The  special  drivers  supplied 
allow  data  to  move  between  sys- 
tems at  1 15,000  bps,  which  is  pretty 
dose  to  the  maximum  transfer  sj?eed 
rate  of  laptop  microdisk  drives. 

Padded  Cells 

Where  will  this  mobile  telecomput- 
ing madness  end?  Within  the  next 
few  weeks,  I'll  be  shopping  for  a 
cellular  mobile  phone  that  will 
allow  hookup  to  my  NEC  Multi- 
Speed's  internal  modem.  Will  life 
ever  be  the  same?  Will  online  tele- 
conferencing and  stock  quotations 
replace  such  classic  highway  games 
as  "Geography,"  "License  Plate 
Lotto,"  and  endless  choruses  of  a 
"Hundred  Bottles  of  Beer  on  the 
Wall?"  Stay  tuned.  @ 
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Microscope 


Sheldon  Leemon 


In  the  music  industry,  compact 
discs  are  riding  high.  When  the 
shiny  silver  platters  were  intro- 
duced a  couple  of  years  ago,  players 
cost  over  $1,000,  and  there  were 
only  a  small  number  of  albums  to 
play  on  them.  Now  it's  possible  to 
buy  CD  players  for  as  little  as  $100, 
and  a  vast  library  of  music  is  avail- 
able on  CDs. 

CDs  apply  digital  technology 
to  the  recording  of  music.  Sounds 
are  translated  into  binary  numbers 
composed  of  O's  and  Ts,  and  stored 
as  a  series  of  high  and  low  spots  on 
a  disc  that  can  be  read  by  a  laser 
beam.  The  same  digital  principles 
are  used  by  microcomputers,  which 
translate  data  such  as  text  charac- 
ters into  a  series  of  binary  numbers. 
So  CDs  seem  an  even  more  natural 
medium  for  storing  computer  data 
than  for  storing  music. 

So  far,  Microsoft,  the  software 
giant,  has  lead  the  way  in  promot- 
ing standards  for  using  CDs  as  com- 
puter  storage  devices.  This 
technology  is  known  as  CD-ROM 
(Compact  Disc-Read  Only  Memo- 
ry), though  CROD  (Compact  Read 
Only  Disc)  would  be  more  accurate. 
Each  tiny  removable  disc  holds 
about  500  megabytes  of  data, 
enough  to  store  over  100,000  pages 
of  text.  Since  discs  are  stamped  out 
like  records,  that  vast  quantity  of 
information  can  be  duplicated  in  a 
fraction  of  a  second,  at  a  cost  com- 
parable to  that  of  floppy  disks. 
Even  though  there's  currently  no 
way  to  erase  and  write  over  a  CD  as 
you  can  with  a  floppy  disk,  the 
computer  industry  sees  CD-ROMs 
as  an  inexpensive  way  to  provide 
personal  computers  with  access  to 
vast  reference  libraries.  It's  possible 
to  put  all  of  the  volumes  of  an 
encyclopedia  on  one  CD,  along 
with  an  index  of  every  word  used, 
so  that  every  occurrence  of  a  word 
or  phrase  can  be  looked  up  in  sec- 
onds. In  fact,  the  text  of  the  ency- 


clopedia would  only  take  up  a  part 
of  the  space  available,  leaving  a  lot 
of  room  for  other  books  as  well. 

In  March,  Microsoft  held  its  second 
annual  CD-ROM  Conference. 
Though  there  are  still  almost  no 
commercial  CD-ROM  products 
available  (particularly  at  the  con- 
sumer level),  there  were  over  1200 
attendees  and  exhibitors  at  the  con- 
ference, which  indicates  the  level  of 
interest  in  this  technology.  At  the 
conference,  Microsoft  unveiled 
Bookshelf,  a  $295  package  made  up 
of  a  memory-resident  IBM  PC  pro- 
gram and  a  CD  containing  ten  ref- 
erence works.  Included  are  a 
dictionary,  a  thesaurus,  a  style 
guide,  Bartlett's  Quotations,  a  1987 
almanac,  and  a  ZIP  code  directory. 
The  PC  program  is  designed  to 
work  with  any  word  processor.  You 
could,  for  example,  use  it  to  look  up 
a  ZIP  code  while  writing  a  business 
letter,  and  have  it  insert  the  ZIP 
code  into  the  text  of  the  letter  at  the 
appropriate  place,  Microsoft  also 
announced  at  the  conference  that  it 
would  bundle  Bookshelf  with  Am- 
dek's  Laserdrive  I,  an  external  CD- 
ROM  player  that  can  also  play 
audio  disks.  The  $1,099  package 
includes  a  PC  drive  controller  and 
Microsoft's  MS-DOS  CD-ROM  ex- 
tensions, which  make  it  possible  for 
PC  programs  to  read  data  from  CDs 
much  as  they  do  from  ordinary  disks. 
So  far,  the  applications  for  CD- 
ROM  technology  have  been  very 
specialized'  and  expensive.  Lotus 
has  been  offering  a  financial  data- 
base called  One  Source,  for  example, 
that  contains  detailed  financial 
information  about  publicly  held 
companies,  and  has  announced 
that  it  will  update  that  information 
weekly  (for  a  fat  fee).  It's  also  possi- 
ble to  get  Books  in  Print,  the  stan- 
dard reference  for  booksellers,  on  a 
single  CD,  at  a  cost  of  about  $800. 
Information  vendors  feel  that  they 


must  charge  such  high  prices  be- 
cause there's  a  relatively  small 
number  of  CD-ROM  owners  to 
whom  they  can  sell  their  wares.  But 
until  there's  more  reasonably 
priced  software  available,  few  CD- 
ROM  players  will  be  sold.  By  bun- 
dling Bookshelf  with  players, 
Microsoft  hopes  to  get  the  ball  roll- 
ing on  both  the  hardware  and  soft- 
ware side. 
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As  exciting  as  CD-ROM  is,  it's  not 
the  only  computer-controlled  CD 
technology.  Standards  have  al- 
ready been  established  for  an  inter- 
active audio  disc  technology  called 
CD-I  (Compact  Disc-Interactive). 
And  at  the  Microsoft  conference, 
RCA  put  on  a  demonstration  of 
what  it  calls  DVl  (Digital  Video  In- 
teractive). This  new  technology 
packs  as  much  as  72  minutes  of 
high-quality  full-motion  video  and 
audio  on  a  single  disc.  The  maxi- 
mum video  resolution  of  this  sys- 
tem is  an  excellent  768  X  512 
pixels,  with  up  to  16  million  colors 
per  pixel.  Such  interactive  video 
technology  could  be  used  for  edu- 
cational materials,  videogames,  and 
a  host  of  applications  that  have 
been  barely  dreamed  of  as  yet. 

So  far,  CD-ROM  has  not  visi- 
bly benefited  from  the  success  of  its 
audio  counterpart.  Since  CD-ROM 
requires  much  higher  accuracy  than 
music  CD  players  afford,  the  plum- 
meting price  of  music  CD  players 
has  not  brought  a  corresponding 
drop  in  the  price  of  CD-ROMs. 
Atari  has  been  forced  to  delay  plans 
for  a  $50Q  player  for  its  ST  com- 
puter because  the  company  has 
been  unable  to  meet  the  target 
price.  But  the  spread  of  music  CD 
technology,  and  especially  the  ex- 
pansion of  disc-production  capaci- 
ty, should  work  to  the  advantage  of 
CD-ROM  in  the  long  run.  Q 
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The  World  Inside  the  Computer 

Fred  D'Ignozio,  Associate  Editor 


Instant  Images  On  Your  Apple  Computer 


As  part  of  our  Multi-Media  Class- 
rooms Project  here  in  Birmingham, 
Alabama,  I've  had  the  opportunity 
to  play  with  an  exciting  new  prod- 
uct, the  FingerPrint  Plus  Card  from 
Third  ware  Computer  Products  (4747 
N.W,  72nd  Ave.,  Miami,  FL  33166). 
This  product  has  a  unique  appen- 
dage— a  little  ribbon  cable  and  an 
activator  tab  with  the  picture  of  a 
fingerprint  on  it.  The  tab  projects 
from  the  front  of  your  Apple  He,  II +, 
II,  or  IlGS  computer.  When  you  press 
it,  you  have  an  instant  snapshot  of 
your  current  computer  screen. 

The  FingerPrint  Plus  card 
(with  installation,  slide-show  soft- 
ware, and  activator  tab)  normally 
retails  for  $149,  However,  schools 
get  a  35  percent  discount.  And,  if 
it's  the  first  FingerPrint  Plus  for  a 
school,  it  costs  only  $75. 

When  I  received  the  card  from 
Thirdware,  I  installed  it  in  slot  #1  in 
my  Apple  He.  The  card  comes  with 
interfaces  for  parallel  and  serial 
printers,  but  it's  a  good  idea  to 
make  sure  you  have  the  right  cable 
(parallel  or  serial)  for  your  printer.  I 
tested  the  card  on  several  brands  of 
software,  including  Bank  Street 
Writer,  Print  Shop,  Apple  Access,  and 
Magic  Slate,  and  I  had  no  printing 
problems. 

Looking  at  the  documentation, 
I  learned  that  the  card  can  also  dou- 
ble as  a  serial  modem  card.  All  you 
need  is  a  special  FingerPrint  Plus- 
to-modem  cable,  and  you  need  to 
make  some  dip-switch  changes. 
The  FingerPrint  Card  also  can  turn 
your  Apple  into  a  fancy  typewriter. 
Choosing  the  Type  option  on  the 
main  menu  screen  allows  you  to 
type  directly  onto  your  printer. 

Easy  As  Pie 

Capturing  a  computer  screen  is 
easy.  You  never  have  to  leave  your 
software  or  issue  any  special  com- 
mands. When  you  see  a  screen  you 
like — even  if  it's  visible  momentari- 


ly— you  press  the  fingerprint  tab. 
The  screen  vanishes,  and  in  its 
place  is  a  full -screen  menu  of  Fin- 
gerPrint Plus  functions.  At  this 
point,  if  you  pres3  the  Return  key,  a 
copy  of  the  screen  is  sent  to  your 
printer.  Or  you  can  choose  Display 
and  take  another  peek  at  the  screen 
to  make  sure  it's  the  one  you  want- 
ed. When  you  return  to  the  menu 
(by  pressing  the  fingerprint  tab), 
you  can  choose  Disk  on  the  menu 
and  save  your  screen  image  to  disk. 

After  you've  saved  several 
screen  images  to  disk,  you  can  boot 
up  the  FingerPrint  Plus  disk  and 
create  a  custom-made  slide  show. 
You  can  present  the  slides  in  any 
order  and  select  the  time  each  slide 
remains  on  the  screen  during  the 
show  (a  minimum  of  ten  seconds 
per  slide). 

Back  in  the  main  menu,  there 
are  several  other  things  you  can  do 
to  manipulate  your  captured  screen 
image.  You  can  select  the  number 
of  copies  of  the  image  you  want 
printed.  Page  numbers  and. head- 
ings can  be  inserted  on  the  pages. 
You  can  invert  the  computer's 
screen  image  and  print  the  inverted 
image.  You  can  enlarge  the  image 
to  twice  its  normal  size,  rotate  it  90 
degrees,  or  select  just  a  portion  of 
the  image  for  printing.  Finally,  you 
can  manipulate  the  colors  in  your 
image  when  it  is  printed  out. 

Some  minor  caveats;  When  I 
got  my  first  FingerPrint  Plus  card,  it 
caused  my  Imagewriter  II  to  myste- 
riously jump  columns  when  print- 
ing hi-res  screens.  A  second  card 
suffered  from  the  same  problem.  I 
suspect  that  the  problem  was 
caused  by  the  Imagewriter  II's  32K 
memory  option,  because  when  I 
tested  the  same  cards  on  Image- 
writers  without  the  option,  the  card 
worked  perfectly. 

Also,  when  I  created  my  first 
slide  show,  the  screen  cursor  be- 
haved oddly  and  began  scrolling 


my  menu  of  slides  off  the  screen. 
However,  when  I  took  the  COM- 
PUTEREYES/2  video  digitizer  card 
out  of  slot  3  in  my  Apple  He  and  put 
it  into  slot  7,  the  cursor  again  be- 
came well-behaved. 

Many  Applications 

It's  a  lot  of  fun  to  press  the  finger- 
print tab  and  watch  a  computer 
screen  instantly  print  out.  But  what 
are  some  practical  uses  for  a  Finger- 
Print Plus? 

•  Create  custom-made  quick-start 
cards  and  training  manuals  for  your 
students  or  other  new  software  us- 
ers. You  can  pick  key  screens  in  the 
software,  take  FingerPrint  snap- 
shots, and  use  the  screens  to  illus- 
trate your  training  instructions. 

•  Create  activity  worksheets  for 
your  students.  Lots  of  educational 
programs  have  graphics  screens 
which  illustrate  math,  science,  so- 
cial studies,  and  language  arts  con- 
cepts. You  can  capture  the  screens, 
duplicate  them,  and  use  them  as 
worksheets  for  your  students  to  do 
at  their  desks. 

•  Capture  key  screens,  organize  a 
slide  show,  and  either  present  the 
show  on  a  large-screen  monitor  or 
video  projector,  or  send  your  com- 
puter's video  output  to  a  VCR  and 
capture  it  on  videotape.  You'd  then 
have  a  video  outline  illustrating  key 
parts  of  your  software  or  illustra- 
tions for  your  presentation  on  a  giv- 
en subject. 

•  Print  out  black-and-white  screen 
dumps  onto  transparencies  on  your 
printer  (using  a  carbon  plastic  rib- 
bon) and  show  the  transparencies 
with  an  overhead  projector. 

•  Using  a  COMPUTEREYES/2  vid- 
eo digitizer  ($129  from  Digital  Vi- 
sion) and  a  FingerPrint  Plus  card, 
digitize  live  video  images  and  im- 
ages from  books,  magazines,  and  so 
on.  Then  create  a  slide  show  of 
images  and  send  it  via  modem  to 
other  schools,  @ 
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ST  Outlook 


Philip  I.  Nelson  Assistant  Editor 


Journey  From  The  Center  Of  The  ST:  Part  1 


Explain,  in  25  words  or  less,  each  of 
the  following  ST  acronyms:  BIOS, 
XBIOS,  GEMDOS,  TOS,  VDI, 
GDOS,  AES,  GEM,  Nearly  every 
ST  owner  knows  that  these  terms 
identify  various  parts  of  the  ST's 
system  software — the  fundamental 
"stuff"  that  makes  it  work.  But 
what  does  each  one  do,  and  how  do 
they  all  fit  together?  We'll  spend 
the  next  two  months  seeking  basic 
answers  to  these  questions. 

This  knowledge  is  essential  for 
any  serious  programming.  And 
even  if  you're  not  aspiring  to  guru 
status,  you  may  find  the  survey 
helpful  for  those  occasions  when 
the  air  fills  with  a  thick  fog  of  com- 
puterspeak.  Well  start  at  the  cen- 
ter— the  most  primitive  level  of  the 
machine — and  work  our  way  out. 
Waiting  for  us  when  we  get  to  the 
surface  will  be  GEM,  the  highest 
level  of  system  software  and  the 
element  responsible  for  much  of 
the  ST's  personality. 

More  Than  A  Pile  Of  Chips 

Although  you  may  picture  comput- 
ers as  mechanical  devices,  the  most 
important  part  of  any  computer 
consists  of  programs.  The  hardware 
inside  a  computer — memory  chips, 
microprocessor,  and  so  on — differs 
little  from  one  machine  to  the  next 
and  is  almost  useless  by  itself.  What 
brings  the  hardware  to  life  is  the 
system  software,  a  collection  of 
built-in  programs  which  the  com- 
puter uses  to  function. 

The  most  basic  level  of  system 
software  is  the  operating  system. 
Some  machines,  like  the  current  ST, 
store  this  software  in  a  ROM  (Read 
Only  Memory)  chip.  Others,  like 
the  original  ST  models,  load  the 
operating  system  from  a  floppy 
disk  when  you  turn  on  the  power. 
No  matter  where  it  comes  from,  the 
operating  system  is  necessary  in  or- 
der for  the  computer  to  do  anything 
at  all. 


Layer  Upon  Layer 

The  ST's  operating  system,  collec- 
tively dubbed  TOS,  is  actually  com- 
posed of  three  separate  parts:  BIOS 
(Basic  Input/Output  System)^ 
XBIOS  (extended  BIOS),  and  GEM- 
DOS  (GEM  Disk  Operating  System). 

If  you  visualize  the  ST's  system 
software  as  a  series  of  layers,  then 
BIOS  is  the  lowest  layer.  The  BIOS 
makes  it  possible  for  the  ST  to  per- 
form simple,  fundamental  tasks 
which  are  necessary  and  common 
to  every  modern  computer:  printing 
a  character,  writing  to  a  disk  sector, 
and  so  on.  Without  this  base  level 
of  functionality,  none  of  the  com- 
puter's higher  capabilities  would  be 
of  use. 

The  next  layer  of  the  operating 
system  is  XBIOS,  which  provides 
more  sophisticated  input/output 
functions  and  supports  hardware 
features  that  the  ST  doesn't  share 
with  other  computers.  The  XBIOS 
lets  you  do  tasks  such  as  changing 
the  color  palette,  communicating 
through  the  MIDI  port,  reserving 
blocks  of  memory,  or  formatting  a 
floppy  disk,  XBIOS  is  a  bit  of  a  grab 
bag,  but  its  functions  generally  in- 
volve some  low-level  task  tied  to  an 
ST-specific  architectural  or  hard- 
ware feature. 

Next  we  come  to  GEMDOS, 
which  provides  high-level  disk  op- 
erations such  as  searching  a  directo- 
ry, as  well  as  more  sophisticated 
character  input/output,  large-scale 
memory  management,  and  func- 
tions for  loading  and  running  pro- 
grams. While  BIOS  and  XBIOS  are 
tied  to  hardware  characteristics, 
GEMDOS  is  said  to  be  hardware 
independent.  That  is,  GEMDOS  calls 
BIOS  and  XBIOS  routines  to  perform 
hardware  functions,  rather  than  di- 
rectly accessing  the  ST's  hardware. 

This  hierarchical  arrangement 
typifies  the  system  software  as  a 
whole.  As  with  a  ladder  or  pyramid, 
the  higher  levels  of  the  structure 


depend  on  lower  levels  for  support 
At  the  bottom  are  fundamental  rou- 
tines which  perform  one  or  two  rudi- 
mentary tasks  and  are  comparatively 
simple  to  use.  As  you  move  up  the 
ladder,  system  routines  become 
more  powerful  and  versatile,  and 
often  more  complicated  to  use.  It 
takes  a  lot  more  setup  to,  say,  open  a 
GEM  window,  than  it  does  to  output 
a  single  character.  And  you  have  a 
lot  more  decisions  to  make  when 
calling  the  open-window  routine. 

The  Face  Behind  The  Mask 

Once  we  install  the  three  software 
elements  of  its  operating  system — 
BIOS,  XBIOS,  and  GEMDOS— the 
ST  becomes  a  working  device.  If  the 
Atari  designers  had  stopped  with 
TOS,  the  ST  would  be  something 
like  a  fast  MS-DOS  computer  with 
lots  of  memory.  You  would  have  a 
keyboard,  simple  character  output 
to  the  screen,  and  the  ability  to 
access  peripherals  such  as  the  disk 
drive. 

In  fact,  there's  a  simple  way  to 
use  the  PC -like  machine  hidden  in- 
side the  ST,  When  you  run  a  GEM 
application  (a  file  that  ends  with 
.PRG),  you  have  the  complete  com- 
puter at  your  disposal^  including  its 
flashy  and  convenient  visual  inter- 
face. But  when  you  run  a  TOS  ap- 
plication (a  file  that  ends  with  .TOS 
or  ,TTP),  the  ST  strips  off  the  glam- 
orous mask  of  GEM  and  uses  only 
the  operating  system.  The  TOS- 
only  machine  is  powerful,  but  rath- 
er dull  and  cumbersome  compared 
to  the  ST  we  use  most  of  the  time. 

What's  missing  from  this  pic- 
ture, of  course,  is  GEM — the  user 
interface  that  provides  the  win- 
dows, menus,  and  other  graphics 
elements  that  make  the  ST  much 
more  than  just  a  fast  PC.  We'll  fin- 
ish our  journey  in  the  second  part 
of  this  column,  which  examines  the 
various  software  elements  that 
make  up  GEM.  ® 
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INSIGHT:  Atari 


Bill  Wilkinson 


The  Protection  Racket 


How  many  times  have  you  written 

a  program  that  is  supposed  to  write 
to  a  disk  file,  only  to  have  the  drive 
make  an  ugly  grinding  noise  and 
then  have  BASIC  (or  your  program, 
if  it  is  doing  error  trapping)  tell  you 
that  the  disk  is  write-protected?  If 
you're  like  me,  the  answer  is  very 
often. 

Tm  usually  cautious  when 
writing  my  programs.  I  leave  the 
write-protect  tab  on  all  my  disks 
until  I  am  99  percent  certain  that 
the  program  will  work.  So  during 
the  development  of  a  program,  I 
tend  to  get  lots  of  error  number  144 
messages.  (Error  144  can  mean 
anything  from  a  too-fast  disk  drive 
to  a  1050  drive's  door  being  open, 
but  most  often  it  means  that  a  disk 
is  write-protected.) 

Testing  First 

Wouldn't  it  be  neat  to  be  able  to  test 
if  a  disk  is  write-protected  before 
you  open  a  file  for  a  write?  Actually, 
you  can.  The  method  is  a  fairly 
obscure  one;  and  to  find  it,  once 
again  I  had  to  consult  the  old  Atari 
Technical  Reference  Manual, 

A  short  sidetrack:  Those  of  you 
who  don't  mind  searching  through 
a  couple  hundred  pages  to  find  a 
small  item  buried  in  a  lot  of  soft- 
ware (and  hardware)  engineering 
talk  really  should  own  a  copy  of 
this  manual.  It  is  now  a  six-year-old 
document,  but  it  is  still  useful  and 
accurate  (aside  from  some  of  the 
RAM  locations  used  by  the  newer 
XL/XE  operating  systems — for 
which  you  can  consult  COM- 
PUTEI's  revised  version  oi  Mapping 
the  Atari),  This  is  a  tribute  to  the 
design  capabilities  of  the  engineers 
from  the  old  Atari  and  the  astute- 
ness of  today's  Atari:  Never  has  an 
entire  line  of  personal  computers 
stayed  so  compatible. 

Wtiere  The  Secret  Lies 

The  secret  to  the  write-protect  is 


buried  in  the  information  about  the 
disk  drive's  status  command. 
(Don't  confuse  the  drive  status  with 
a  file's  status,  as  tested  by  BASIC'S 
STATUS  command.)  If  you  can  re- 
call my  September  1985  column  re- 
garding SIO  (Serial  Input/Output) 
commands,  it  may  be  easier  for  you 
to  understand  the  code  which  fol- 
lows. 1  am  not  going  into  great  de- 
tail, but,  briefly,  an  SIO  call  must 
have  certain  information  placed  in 
page  3  (locations  $300  to  $30B,  spe- 
cifically) before  the  program  jumps 
to  the  subroutine  at  location  $E459. 
(You  can  use  my  handy-dandy 
number  converter  program  of  a  few 
months  back  to  convert  those  hex 
numbers  to  decimal.)  Information 
placed  in  page  3  includes  the  drive 
number,  type  of  request  (S,  for  sta- 
tus, in  this  case),  the  address  of  a 
buffer,  and  the  number  of  bytes  to 
transfer. 

It  is  this  last  set  of  information 
that  is  most  important  to  us:  The 
drive  status  returns  four  bytes  of 
information  that  we  need  to  receive 
somewhere  so  that  we  can  analyze 
it.  We'll  take  a  closer  look  at  the 
accompanying  listing  later,  but  for 
now  just  notice  that  we  dimension 
a  buffer  (BUF$)  in  line  30100.  The 
four  bytes  of  BUF$  will  be  used  to 
receive  the  four  bytes  of  drive  sta- 
tus. We'll  be  using  only  the  first 
byte  of  that  status,  because  that  is 
where  the  write-protect  flag  is  lo- 
cated. Some  of  the  bits  in  that  byte 
are  related  to  various  hardware  er- 
ror conditions,  which  we  need  not 
discuss,  leaving  the  following  bits 
as  useful  to  us: 

Bit  3  $08  write-protected  disk 
Bit  5  $20  double  density  disk 
Bit  7     $80     1050  enhanced  density  disk 

Well,  well!  So  not  only  can  we 
find  out  if  the  disk  is  write-protected, 
we  can  also  find  its  density. 

A  Useful  Subroutfne 

In  this  month's  listing,  then,  lines 


30000  and  beyond  are  a  subroutine 
that  you  can  include  in  your  own 
programs.  To  use  the  subroutine, 
simply  set  the  variable  DRIVE  to  a 
valid  drive  number  (1  to  4,  usually) 
and  GOSUB  30000,  Upon  return, 
the  variable  CHECK  will  contain 
one  of  the  following  values: 

less  than  0        an  error  occurred  (invalid 
drive  number,  for  example) 

0  disk  may  be  written  to 

1  disk  is  write-protected 

If  the  value  returned  is  less  than 
zero,  then  the  value  will  be  the 
negative  of  the  appropriate  error 
code.  For  example,  if  you  try  to 
check  a  drive  that  isn't  turned  on, 
the  value  returned  should  be  — 138, 
indicating  that  error  138 — device 
timeout — has  occurred. 

Similarly,  a  second  number  is 
returned  in  a  variable  named  DEN- 
SITY. Its  meaning: 

—  1  density  value  was  invalid 

1  drive  is  single  density 

2  drive  is  double  density 

3  drive  is  enhanced  density 

And  all  of  this  is  demonstrated  by 
the  code  in  lines  100  through  220. 
These  lines  are  provided  just  to  give 
you  a  test  bed  to  try  out  the  subrou- 
tine of  lines  30000  and  up.  Try  the 
program,  and  then  incorporate  the 
subroutine  in  your  own  programs. 
And  never  again  will  you  or  your 
users  see  that  dreaded  error  num- 
ber 144  (unless  your  drive  speed  is 
off — but  that's  another  topic). 

Just  a  couple  of  last  comments: 
Notice  line  30170.  This  demon- 
strates another  programming  trick. 
Worried  about  making  sure  that 
your  RESTORE  statements  refer  to 
the  right  DATA  line  numbers?  For 
short  DATA  lines,  why  not  simply 
combine  RESTORE  and  DATA  on 
the  same  line,  as  in  30170? 

Also,  notice  the  sneaky  way 
that  BUF$  is  dimensioned  in  line 
30100.  If  we  come  to  line  30100  a 
second  time,  we  get  an  error  when 
we  try  to  re-DIMension  BUF$.  But, 
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because  of  the  TRAP,  the  error  is 
effectively  ignored — a  useful  way 
of  making  sure  a  variable  is  dimen- 
sioned only  once. 

Write-Protect  Checker 

For  Instructions  on  entering  this  program, 
please  refer  to  "COMPUTE  !*s  Guide  to  Typing 
in  Programs"  elsewhere  in  this  issue. 

ii^   100  REIi  SIMPLE  PROGRAM  TO 

DEMONSTRATE 
BC110  REM  THE  WRITE  PROTECT 

CHECKER  ROUTINE 
HA  120  PRINT  :PRINT  :PRINT  " 

DRIVE  NUMBER  '*  ; 
JO  130  INPUT  DRIVE 
AJ  140  GDSUB  30100 
^:B150  if  CHECK<0  then  PRINT 
"ERROR  #  " ; -CHECK; " 
ACCESSING  DRIVE  -'jDRI 
VE:G0T0  120 
CJ  160  IF  CHECK>0  THEN  PRINT 
"DISK  IS  WRITE  PROTE 
CTED"; 
LI  170  IF  CHECK  =  0  THEN  PRINT 

"DRIVE  IS  READY"; 
PC  180  IF  DENSITY=1  THEN  PRI 
NT  ",  SINGLE  DENSITY. 

ON  190  IF  DENSITY-2  THEN  PRI 
NT  ",  DOUBLE  DENSITY. 

SB  200  IF  DENSITY  =  3  THEN  PRI 
NT  ",  ENHANCED  DENSIT 
Y.  " 

FI210  IF  DENSITY<0  THEN  PRI 
NT  ",  UNKNOWN  DENSITY 


FD  220  GOTO  100 

KS  30000  REM  SUBROUTINE  TO  C 

HECK  DISK  FOR  WRITE 
PROTECT 
HI  30010  REM 
HK  30020  REM  ENTER  WITH  DRIV 

E  TO  CHECK  IN  DRIVE 
(1  TO  8) 
NK  30030  REM 
JJ  30040  REM  ON  EXIT,  CHECK 

WILL  NORMALLY  BE  0 
LO  30050  REM  IF  CHECK  IS  1, 

DISK  IS  WRITE  PROTE 

CTED 
HD  30060  REM  IF  CHECK  IS  <0 

THEN  CHECK  IS  NEQAT 

IVE  OF  SIO  ERROR  CO 

DE 
ON  30070  REM  FOFi  CHECK  =  1  OR 

0,  DENSITY  IS  RETUR 

NED: 
JL  30080  REM  DENSITY  IS  1,2, 

3  FOR  SINGLE,  DOUBL 

E,  ENHANCED  DENSITY 
ee30090  REM  DENSITY  IS  -1  I 

F  UNRECOGNIZED 
L)(30100  TRAP  30110:DIM  BUF* 

<4> 
BH30110  POKE  768,49:PDKE  76 

9, DRIVE 
H 30120  POKE  770,83:PaKE  77 

1  ,  64 
[E  30130  POKE  773,  INT  (ADR  CBU 

F*) /256) 
:H30140  poke  772,  ADR  (BUF*) - 

256*PEEK (773) 
Jfl 30150  POKE  774,2:P0KE  775 

,0 
JH  30160  POKE  776,  4;  POKE  777 

,0 


flE30170  RESTORE  30170:DATA 

104, 76, 89, 228 
9ft30180  FOR  BYTE=1  TO  4:REA 

D  CHECK 
SN  30190  BUF«  CBYTE)  =CHR*  (CHE 

CK) :NEXT  BYTE 
NK  30200  BYTE  =  USR  (ADR  (BUF*>  ) 
BE  30210  CHECK  =  PEEK  (771)  :  IF 

CHECKM27  THEN  CHEC 

K='CHECK: RETURN 
DJ  30220  CHECK  =  0:  BYTE^INT  (AS 

C (BUF*) /S) 
GC30230  IF  BYTE/2<  >INT  CBYTE 

/2)   THEN  CHECK=1 
DC  30240  BYTE-INT  (BYTE/4)  :  DE 

NSITY=-1 
OH  30250  IF  BYTE  =  0  THEN  DENS 

ITY=1 
Ok'  30260  IF  BYTE=1  THEN  DENS 

ITY  =  2 
OP  30270  IF  BYTE  =  4  THEN  DENS 

ITY  =  3 
SH   30280  RETURN  ® 
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The  Beginner's  Page 


C.  Regena 


Arithmetic  in  BASiC 


In  most  of  my  guest  lectures  or 
computer  presentations,  I  empha- 
size that  a  mathematics  background 
is  not  necessary  to  use  or  to  pro- 
gram a  computer.  However,  we  do 
use  numbers  quite  frequently  in 
programming.  This  month  we'll 
discuss  a  few  arithmetic  operations 
that  are  important  when  program- 
ming in  BASIC. 

The  computer  is  a  sophisticat- 
ed calculator,  and  you  can  add  and 
subtract  numbers  by  using  plus  and 
minus  signs: 

PRINT  4  +  3 

PRINT  12-7 

PRINT  5  +  8-3  +  2-1 

Notice  that  the  numbers  with 
the  +  and  —  signs  are  written  all 
on  one  line,  and  the  computer  will 
add  or  subtract  from  left  to  right. 

Of  course  the  computer  can 
multiply  and  divide  also.  To  multi- 
ply, use  the  *  (asterisk)  symbol.  To 
divide,  use  the  /  (slash)  symbol 
Remember  that  everything  has  to 
be  on  one  line.  To  multiply  3  times 
4,  the  equation  is  represented  by 
3*4.  In  division,  the  first  number 
is  divided  by  the  second  number — 
12/4  means  12  divided  by  4. 

Now  the  order  of  operations 
becomes  important.  The  standard 
rule  is  to  calculate  from  left  to  right, 
first  executing  the  multiplication 
and  division,  and  then  the  addition 
and  subtracdon.  If  we  have  an 
equation  8  +  12/4,  the  division 
12/4  is  performed  first.  The  result, 
3,  is  then  added  to  8,  for  a  final 
result  of  11. 

Let's  suppose  you  really  want- 
ed 8  added  to  12  first,  and  then  that 
sum  divided  by  4.  On  paper,  you 
could  write  8  +  12  as  the  numera- 
tor of  a  fraction;  then  under  the  bar, 
write  the  4  to  indicate  division. 
However,  with  computers,  the  ex- 
pression must  be  written  all  on  one 
line.  Parentheses  may  be  used  to 
group  numbers.  (Be  sure  you  al- 
ways have  a  matching  pair  of  paren- 


thesis.) So  for  our  example,  we  can 
write  (8  +  12)/4.  This  time  the  re- 
sult is  20/4,  or  5.  You  might  want  to 
experiment  with  various  expres- 
sions using  all  the  operator  signs 
and  different  placements  of  the  pa- 
rentheses in  PRINT  statements. 

One  more  step  in  the  order  of 
operations:  Exponents  are  per- 
formed before  the  multiplication 
and  division  operations.  The  expo- 
nentiation operator  is  an  up  arrow 
(T)  on  Commodore  computers  and 
a  caret  (")  on  most  others.  For  ex- 
ample, 5  +  4"3*10  starts  with 
4  "  3,  which  is  4  raised  to  the  third 
power  (cubed),  or  64.  The  next  op- 
eration is  the  multiplication 
64  *  10,  or  640.  The  next  operation 
is  the  addition  5  +  640,  or  645,  for 
the  final  result. 

Expressions  With  Variables 

When  you're  comfortable  using  ac- 
tual numbers  (constants),  try  using 
numeric  variables.  A  variable  is 
simply  a  letter  or  name  that  repre- 
sents a  number.  If  you've  had  any 
algebra,  you'll  recall  using  letters  in 
numeric  expressions  or  formulas. 
For  example,  A=L*W  is  a  formula 
for  area  equals  length  times  width. 
When  you  solve  a  problem,  you'll 
have  a  number  for  L  and  a  number 
for  W,  which  results  in  a  number  for 
A.  Here's  a  sample  program: 

100  L  =  10 
110  W  =  5 
120  A  =  L*  W 
130  PRINT  A 

Line  120  performs  the  operation  of 

multiplying  the  numbers  represent- 
ed by  the  variables  L  and  W;  then 
line  130  prints  the  number  repre- 
sented by  the  variable  A.  If  you 
wish,  you  can  delete  line  120  and 
just  use  PRINT  L  *  W  for  line  130. 
The  result  is  the  same. 

The  arithmetic  symbols  and  or- 
der of  operations  are  the  same  for 
variables  as  they  are  for  constants. 

In    your    program,    you    may 


make  calculations  first  and  then  use 
the  result  in  another  statement,  or 
you  can  indicate  calculations  within 
the  statement.  Assuming  all  vari- 
ables have  previously  been  defined, 
these  two  program  segments  will 
have  the  same  results; 

500X  =  A*B  -\-  C 
510  Y  =  D/E 
520  PRINT  X,Y 

or 

500  PRINT  A  •  B  -h  QD/E 

So  far  we've  seen  arithmetic  in 
the  PRINT  statement,  but  this  is  not 
the  only  place  you  can  use  num- 
bers.  Any  statement  requiring  nu- 
meric parameters  can  use  actual 
numbers  (constants),  variables,  or 
numeric  expressions.  You  can  use 
these  arithmetic  operations  to  make 
calculations  for  the  numbers  re- 
quired in  other  statements.  For  ex- 
ample, you  may  need  to  calculate  a 
row  and  a  column  to  begin  printing 
or  drawing.  You  may  want  to  draw 
to  one  point  with  coordinates  calcu- 
lated in  terms  of  the  coordinates  of 
another  point.  You  may  want  to  use 
SOUND  commands  with  variables 
and  expressions  rather  than  con- 
stant numbers.  FOR-NEXT  state- 
ments may  have  variable  index 
limits.  IF-THEN  statements  may 
compare  constants,  or  they  may 
compare  constants  with  variables, 
or  they  may  compare  numeric  ex- 
pressions. Functions  such  as  SIN(X) 
can  use  numeric  expressions  in  the 
argument.  Here  are  some  examples: 

200  PRINT  INT(A  *  B  ♦  RNDd)  +  1) 
210  IF  BLUE>RED  -f  1  THEN  500 
220  PRINT  AT  (ROW  +  2,COL  +  5), 

NAMES 
230  SOUND  F,D  *  4,V  +  2 
240  CIRCLE  (X  *  8  +  A,Y  +  B),R  +  5 
250  LINE  (X,Y)-(X  +  L,Y  -h  W> 
260  PRINT  SGN(D  *  E  -H  <F  -  G>/8> 
270  FOR  K  =  A  +  B  TO  C  -  D  STEP 

("D^S 
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AmigaView 


Sheldon  Leemon 


Desktop  Video 


Because  IBM  PCs  and  compatibles 
are  so  firmly  entrenched  in  the 
business  microcomputer  market, 
any  new,  non-compatible  computer 
has  got  to  offer  something  that  IBM 
doesn't.  For  the  Macintosh,  desktop 
publishing  has  become  a  Trojan 
Horse,  an  application  that's  al- 
lowed it  to  breach  the  corporate 
walls.  For  the  Amiga,  desktop  video 
may  be  the  application  that  secures 
its  niche  in  the  marketplace. 

The  Tumaround 

The  Amiga's  design  makes  it  partic- 
ularly well-suited  for  video  applica- 
tions, since  its  own  video  output 
more  closely  follows  broadcast  tele- 
vision standards  than  other  person- 
al computers.  Since  it  was 
anticipated  right  from  the  start  that 
the  Amiga  would  be  used  to  com- 
bine computer  graphics  with  live 
video,  provisions  were  made  in  its 
hardware  and  software  design  to 
support  such  applications.  The 
Amiga  is  the  only  personal  com- 
puter you  can  buy  that  has  video 
input  lines  built  right  into  the  video 
output  port.  Commodore  has  been 
a  bit  slow  to  bring  to  market  the 
hardware  peripherals  necessary  to 
realize  the  Amiga's  video  potential, 
but  things  seem  to  be  turning 
around  at  last. 

One  of  the  most  exciting  devel- 
opments has  been  Commodore's  re- 
cent  release  of  the  Genlock 
interface.  Genlock  is  widely  misun- 
derstood among  Amiga  owners,  be- 
cause it's  more  of  a  video  peripheral 
than  a  computer  add-on.  In  effect,  it 
turns  the  Amiga  into  a  video  pro- 
cessing accessory  for  your  VCR,  by 
combining  a  live-action  video  signal 
from  a  video  camera  or  VCR  with 
the  Amiga's  great  computer  graph- 
ics. The  resulting  picture  can  be  re- 
corded by  another  VCR. 

Genlock  replaces  everything  on 
the  screen  that's  colored  in  the  back- 
ground color  (that  takes  its  color 


from  hardware  color  register  0).  On 
the  Workbench  screen,  for  example, 
every  dot  that  normally  appears  as 
blue  is  replaced  by  the  live  video 
picture.  Software  doesn't  have  to  do 
a  thing  to  work  with  Genlock.  As 
soon  as  you  attach  the  interface  and 
power  up  the  computer,  the  operat- 
ing system  sees  it's  there  and  allows 
you  to  transparently  replace  the 
background  computer  video  color 
with  live  action  video. 

If  Genlock  only  offered  simple 
video  titling,  it  would  still  allow  the 
Amiga  to  surpass  dedicated  units 
costing  a  lot  more.  But  Genlock  lets 
the  Amiga  do  things  like  interpose 
animated  "characters"  in  the  mid- 
dle of  live  action  video.  Although 
the  Genlock's  signal  quality  isn't  of 
the  broadcast  quality  needed  by 
television  stations,  it's  certainly 
good  enough  for  industrial  use. 

Amiga  Live! 

If  Genlock  converts  computer 
graphics  into  video  graphics,  a  vid- 
eo digitizer  does  almost  exactly  the 
opposite.  It  takes  video  graphics 
and  changes  them  into  computer 
graphics.  Commodore  has  an- 
nounced a  product  called  Anrdga 
Live!,  which  will  let  you  freeze  a 
single  frame  (or  series  of  frames) 
from  live  action  color  video,  and 
then  display  it  on  the  Amiga  in  its 
own  computer-graphics  format. 
The  resulting  picture  could  be 
saved  to  disk,  and  later  loaded  into 
paint  programs  where  they  could 
be  edited  further. 

Commodore- Amiga  hasn't  de- 
livered on  its  promised  "framegrab- 
ber"  as  of  yet.  The  Digi-View 
Digitizer  from  NewTek,  however, 
is  an  excellent  low-cost  alternative. 
Unlike  Amiga  Live!,  Digi-View 
works  too  slowly  to  capture  indi- 
vidual frames  from  live  action  vid- 
eo. In  order  to  produce  a  color 
picture,  it  must  capture  three  sepa- 
rate "views"  of  the  images,  repre- 


senting the  red,  green,  and  blue 
components  of  the  picture.  To 
screen  out  other  colors,  a  plastic 
wheel  containing  red,  green,  and 
blue  filters  is  rotated  in  front  of  the 
camera  lens.  The  whole  process 
may  take  half  a  minute,  but  the 
quality  of  the  pictures  produced  is 
simply  astounding.  Also,  the  Digi- 
View  software  is  extremely  versa- 
tile, allowing  you  to  capture 
pictures  in  virtually  any  of  the  Ami- 
ga's video  modes,  including  the 
Hold  and  Modify  mode  in  which  up 
to  4096  colors  can  be  displayed  on 
screen  at  once.  When  capturing  pic- 
tures in  the  normal  3  2 -color  mode, 
you  can  specify  the  number  of  col- 
ors (1-32)  to  be  used,  and  even 
specify  the  actual  color  palette.  In 
this  way,  you  can  conform  the  im- 
age to  the  color  palette  used  by  an 
existing  paint  program  image. 

One  drawback  of  the  Digi- 
View  system  is  that  you  normally 
can't  use  it  to  digitize  a  still  frame 
from  a  VCR  in  color,  since  you  can't 
apply  the  colored  filters  to  the  im- 
age. With  the  Genlock  interface, 
however,  you  can  run  the  video 
into  the  Genlock  (set  it  to  video 
only),  and  connect  the  separate  red, 
green,  and  blue  outputs  from  the 
Genlock's  23-pin  output  connector 
in  turn  to  the  Digi-View.The  result- 
ing Digi-View  picture  is  quite  good, 
as  long  as  your  VCR  provides  a 
good  still-frame  picture. 

The  applications  for  the  Gen- 
lock and  video  digitizers  already 
exist.  Genlock  can  be  used  for  the 
kind  of  video  production  work  that 
goes  on  daily  in  every  cable  TV 
company,  college  video  lab,  and  in- 
dustrial video  shop.  It's  just  that  up 
until  now,  it  took  thousands  of  dol- 
lars to  put  together  the  equipment 
needed  to  perform  such  tasks.  With 
the  Amiga,  most  of  what's  required 
is  already  sitting  on  your  desktop.® 
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IBM  Personal  Computing 


Donold  B.  Trivette 


A  Bit  Of  BASIC 


I'm  never  completely  pleased  with 
the  output  from  off-the-shelf  pro- 
grams— even  the  good  ones.  There 
are  many  commands  I'd  like  to  add 
to  word  processing  programs,  and 
the  screens  in  my  accounting  soft- 
ware^— one  of  the  most  popular 
programs  around — could  be  rede- 
signed to  eliminate  clutter.  Td  love 
to  make  these  changes,  but  without 
source  code  and,  in  many  cases,  a 
knowledge  of  the  native  language, 
it's  just  not  possible.  Whenever  I 
can  do  something  about  the  design 
of  the  output,  though,  I  usually 
spend — or  waste — a  lot  of  time  re- 
arranging things.  Thus  the  focus  of 
this  month's  column:  in  particular, 
The  Personal  Ancestral  File,  a  pro- 
gram from  The  Church  of  Jesus 
Christ  of  Latter-day  Saints;  in  gen- 
eral, how  to  use  binary  data. 

Last  October,  I  told  you  what  a 
terrific  program  PAF  is  for  record- 
ing genealogy  and  family  records. 
And  it  still  is.  It's  just  that  there  are 
a  few  things  I'd  like  to  change  on 
the  printouts.  I  want  both  birth  and 
death  dates  printed,  and  the  age  at 
death  calculated  and  printed  in  pa- 
rentheses where  appropriate;  I'd 
like  ID  numbers  not  printed;  and  I 
want  a  different  page  header  with 
certain  lines  printed  in  bold.  Minor 
changes,  really,  if  only  I  could  get 
my  hands  on  the  source  code, 
which  I've  been  told  is  written  in  C, 

I  can't  change  PAF,  but  I  can 
write  my  own  programs  to  organize 
and  print  data  from  PAF  files.  Basi- 
cally the  program  uses  four  files, 
and  I  know  what  their  formats 
are — which  at  first  appears  to  be  a 
problem  for  BASIC. 

The  main  file  contains  one  re- 
cord indicating  each  individual's 
date  of  birth,  date  of  death,  and  sex, 
as  well  as  a  pointer  to  the  name, 
which  is  recorded  in  another  file. 
The  three  things  I  want  from  this 
file — the  information  I'll  use  in  my 
own  program — are  the  name  point- 


er and  the  two  dates.  The  problem 
is  that  the  pointer  and  dates  are  not 
saved  in  the  file  as  readable  text, 
such  as  January  31,  1960  or  1-31-60. 
To  conserve  space  (and  make 
things  difficult  for  people  like  me), 
a  date  is  represented  in  a  three-byte 
binary  field.  That  is,  it's  compressed 
to  occupy  the  same  space  as  the 
three  characters  ABC. 

Information  In  Bits 

Here's  how  it's  done — remember, 
one  byte  has  8  bits,  so  the  date 
occupies  24  bits.  The  number  for 
the  year  is  contained  in  the  first 
byte  and  half  of  the  second  byte — a 
total  of  12  bits;  the  next  5  bits  repre- 
sent the  month;  the  next  5  are  the 
day;  and  the  last  2  are  a  status  code 
which  we  don't  need.  If  you've 
been  keeping  count,  you'll  know 
that  the  last  bit  in  the  month  is  also 
the  first  bit  in  the  third  byte.  Now 
how  can  you  work  with  data  that's 
partly  in  one  character  and  partly  in 
another?  Actually,  this  is  a  common 
way  to  represent  numbers  and  oth- 
er data,  and  many  programming 
languages  like  PL/1,  C,  and  Pascal 
have  ways  to  work  directly  with 
binary  data.  BASIC  doesn't. 

But  BASIC  has  something 
called  logical  operators  that  work  at 
the  bit  level.  Let's  see  how  to  grab 
the  day  number  (in  the  third  byte). 
First  we  read  a  record  and  assign 
the  three  date  bytes  to  X$,  Y$,  and 
Z$,  respectively,  Now  we  want  to 
convert  a  part  of  Z$  to  a  number. 
The  first  bit  we  ignore  because  it's 
really  the  last  bit  in  the  month,  and 
the  last  two  we  ignore  since  we 
don't  need  them. 

The  logical  AND  operator  can 
be  used  to  "wipe  out"  unwanted 
bits.  If  we  AND  the  Z$  variable 
with  the  bit  pattern  01111100  we'll 
be  erasing  bits  7,  1,  and  0  (bits  are 
numbered  from  right  to  left);  the 
bits  for  the  day — 6,  5,  4,  3,  and  2 — 
are  unchanged  by  ANDing  with  the 


I's  in  the  bit  pattern.  So  our  BASIC 
statement  might  read  DAY  — 
(ASC(Z$)  AND  01111100),  except 
BASIC  doesn't  have  a  binary  data 
type  and  won't  understand  the  O's 
and  I's.  We  have  to  convert  the 
binary  pattern  to  hexadecimal — a 
base  16  numbering  system — in  or- 
der to  write  it  in  BASIC.  To  do  this, 
divide  the  eight  bits  into  two 
groups  of  four  and  then  convert  to 
the  appropriate  hex  value.  (Many 
programming  books  show  how  to 
do  this.)  The  bit  pattern  0111  1100 
is  the  same  thing  as  hex  7C,  which 
is  written  in  BASIC  as  &H7C,  So 
our  statement  should  be  DAY.  = 
(ASC(Z$)  AND  &H7C).  Note  that 
we  use  the  ASC  function  to  convert 
the  character  value  of  Z$,  which  is 
what  we  had  to  use  to  read  data 
from  the  file,  to  a  numeric  value. 

If  you  print  the  variable  DAY, 
you  still  won't  get  a  number  be- 
tween 1  and  31.  We  aren't  quite 
through.  Here's  a  decimal  analogy: 
Suppose  we  had  the  number  432651 
and  wanted  to  make  a  new  number 
out  of  the  middle  two  digits.  After 
the  ANDing  process  we  would 
have  002600,  which  is  2,600— and 
we  are  after  the  26  part.  If  we  were 
working  in  decimal,  we'd  simply 
divide  the  ANDed  value  by  100 
(10^)  to  lose  the  rightmost  two 
places  and  come  up  with  26.  Since 
we're  working  in  binary,  we  divide 
by  4  (2^)  to  shift  two  places  to  the 
right.  Thus  DAY  =  (ASC(Z$)  AND 
&H7C)  /  4  is  the  correct  BASIC 
statement;  printing  DAY  will  print 
a  value  between  1  and  31. 

To  try  it  yourself,  assign  Z  the 
initial  value  of  234.  Since  we're  not 
reading  data  from  a  file  and  you 
would  have  a  difficult  time  typing 
the  character  represented  by  the 
ASCII  value  234,  we  won't  need  a 
character  variable  or  the  ASC  func- 
tion. Just  make  Z  equal  234  and 
decode  the  day  contained  therein: 
Thanksgiving  Day,  1987,  0 
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$15,000.00 

Programming  Contest! 


COMPUTE!' s  PC  Magazine 

For  IBM  PCs  &  Compatibles 


First  Prize    $7,500.00  Second  Prize    $2,500.00 

Five  Honorable  Mentions    $1,000.00  each 

COMPUTE!  Publications^  Inc.,  a  longtime  leader  in  personal  computer  publishing,  is  launching  a  new  maga- 
zine this  summer:  COMPUTEI's  PC  Magazine  for  IBM  PCs  &  Compatibles.  Each  bimonthly  issue  will  include  a 
floppy  disk  filled  with  programs,  source  code,  and  other  useful  information.  We're  looking  for  the  very  best 
original  software  for  IBM  PCs,  XTs,  and  compatibles,  and  are  sponsoring  a  programming  contest  with  a  total  of 
$15,000.00  in  prize  money  for  the  top  six  winners.  That's  $7,500.00  for  First  Prize;  $2,500.00  for  Second  Prize; 
and  five  Honorable  Mentions  at  $1,000.00  each.  In  addition,  the  winners  will  receive  our  standard  purchase 
fees  for  publication  in  our  magazine  and  royalties  if  republished  in  COMPUTE!  books. 

Even  if  your  contest  entry  doesn't  win  a  prize,  you  will  still  earn  purchase  fees  if  we  accept  your  program 
for  publication. 

Interested?  If  so,  read  these  rules: 


1.  Entries  must  be  your  original  work,  previously  unpublished  in 
any  form.  All  those  whose  programs  are  acceptecf  will  be  required 
to  affirm  this  in  writing. 

2.  You  can  submit  as  many  entries  as  you  want,  but  we  cannot 
consider  programs  which  have  been  either  entered  in  other  con- 
tests or  submitted  for  publication  elsewhere  at  the  same  time. 

3.  The  contest  deadline  is  October  31,  1987.  All  entries  must  be 
received  at  our  offices  by  this  date.  Programs  submitted  after  this 
date  will  still  be  considered  for  publication,  but  will  not  be  entered 
in  the  contest.  If  we  purchase  an  entry  for  publication  before  the 
deadline,  the  entry  is  still  eligible  to  win. 

4.  Entries  are  allowed  (and  encouraged)  in  virtually  all  software 
categories;  home  and  business  applications,  education,  recreation, 
telecommunications,  graphics,  sound  and  music,  and  utilities. 

5.  Entries  may  be  written  in  any  programming  language — includ- 
ing BASIC,  C,  machine  language,  Pascal,  and  Modula-2 — as  long 
as  they  meet  two  requirements.  First,  if  you're  using  a  compiled 
language,  the  compiled  object  or  runtime  code  must  be  a  self-stand- 
ing program  that  can  be  run  by  someone  who  doesn't  own  a  copy 
of  the  language,  (Interpreted  BASIC  is  an  exception.  It  can  be 
assumed  that  nearly  everyone  owns  a  copy  of  BASICA  or  GW- 
BASIC.)  Second,  we  must  be  able  to  legally  distribute  the  program 
without  incurring  licensing  fees  or  other  obligations  to  the  maker  of 
the  language.  If  you're  not  sure  whether  a  certain  language  quali- 
fies, contact  its  maker  for  clarification. 

Every  contest  entry  must  include  this  signed  form: 


6.  Entries  must  be  submitted  on  5  V^-inch  floppy  disks.  If  your  pro- 
gram is  written  in  a  compiled  language,  you  must  submit  both  the 
runtime  code  and  all  of  the  source  code  required  to  compile  the 
program. 

7.  Entries  must  be  accompanied  by  an  article  which  explains  how 
to  use  the  program  and  what  it  does.  If  your  program  employs  any 
new  or  unusual  techniques  that  you  think  will  be  of  interest  to 
other  programmers,  you  can  also  describe  how  the  program  works. 
(If  you  feel  that  writing  is  not  your  strong  point,  please  do  not  hesi- 
tate to  enter;  this  is  a  programming  contest  and  the  entries  will  be 
judged  solely  on  the  basis  of  the  programs  submitted.) 

8.  Submissions  which  do  not  win  a  prize  and  are  not  accepted  for 
publication  will  be  returned  only  if  accompanied  by  a  self- 
addressed,  stamped  mailer. 

9.  The  staff  of  COMPUTE!  Publications,  Inc.,  will  judge  the  con- 
test, and  all  decisions  regarding  contest  entries  and  acceptances 
will  be  solely  at  the  discretion  ofCOMPUTE!  Publications,  Inc.  All 
decisions  are  final.  This  includes  decisions  regarding  creativity, 
similarity  among  entries,  and  general  suitability. 

10.  Winners  will  be  announced  by  COMPUTE!  Publications,  Inc., 
in  early  1988. 

1 1 .  This  contest  is  void  where  prohibited  by  law.  Full-time,  part- 
time,  and  previous  employees  of  COMPUTE!  Publications,  Inc. 
and  Capital  Cities/ American  Broadcasting  Corporation  are  ineli- 
gible for  the  contest,  but  may  still  submit  work  for  publication  at 
standard  rates. 


I  warrant  that  the  program  presently  entitled  . 


.  is  my  own  original  work  and 


that  the  work  has  not  been  submitted  for  consideration  elsewhere,  nor  has  it  been  previously  published  in  any  form.  If  my  work  is 
accepted  by  you,  I  understand  that  your  decision  as  to  the  selection  of  winners  and  awarding  of  prizes  is  final  and  without  recourse 
on  my  part.  Should  you  select  my  submission,  I  understand  that  I  will  receive  no  payments  until  I  sign  your  standard  contract, 
which  includes  assignment  of  the  copyright  of  the  program  to  COMPUTE!  Publications,  Inc.,  and  that  you  may  use  my  name  and 
image  in  promotional  materials  and  other  forms.  (If  you  are  under  age  18,  your  parent  or  legal  guardian  must  sign  for  you  J 

Signature; 


Address  entries  to: 


PC  Programming  Contest 
COMPUTE!  Publications,  Inc. 
P.O.  Box  5406 
Greensboro,  NC  27403 


COMPUTE!  Publicationsjnc.2 


Pari  of  ABC  Consumer  Magazines,  inc 
One  of  fhe  ABC  Pubiishtng  Cornpomes 


64  RAMdisk 


This  Commodore  64  utility  creates  an 
electronic  disk  drive  that's  much  fast- 
er than  an  ordinary  disk  drive.  Since 
it  uses  "hidden"  memory,  the  RAM- 
disk  doesn't  reduce  the  amount  of 
programming  space  available  for  your 
use.  No  machine  language  knowledge 
is  7teeded  to  use  the  program. 


A  RAM  disk  is  a  familiar  device  to 
many  personal  computer  owners. 
In  simple  terms,  a  RAM  disk  emu- 
lates a  disk  drive  entirely  in  the 
computer's  RAM  (Random  Access 
Memory),  allow^ing  you  to  store  and 
retrieve  files  much  faster  than  you 
can  from  a  mechanical  disk  drive. 
The  Amiga,  for  instance,  include^  a 
built-in  RAM  disk  as  part  of  Its 
system  software;  and  RAM  disks 
are  popular  utility  programs  for 
computers  such  as  the  Atari  ST  and 
IBM  PC/PCjr. 

^'64  RAMdisk"  is  a  RAM  disk 
for  the  Commodore  64  which 
doesn't  subtract  a  single  byte  from 
the  space  normally  available  for 
programming.  You  control  the 
RAMdisk  with  simple  BASIC  com- 
mands, and  the  program  is  compati- 
ble with  the  "DOS  Wedge"  utility 
(supplied  on  the  1541/1571  Test/ 
Demo  disk),  "TurboTape"  (COM- 
PUTE!, January  1985),  and  "Turbo- 
Disk"  (COMPUTE!,  April  1985). 

Typing  In  64  RAMdisk 

Because  64  RAMdisk  is  written  in 
machine  language,  the  program 
must  be  typed  with  the  "MLX" 
machine  language  entry  program 
printed  elsewhere  in  this  issue. 
Here  are  the  addresses  you  need  to 
enter  64  RAMdisk  with  MLX: 


Starting  address: 
Ending  address: 


0801 
12A8 


Hubeil  Cross 

64  RAMdisk  is  designed  to 
load  and  run  exactly  like  a  BASIC 
program.  Load  the  program  with 
LOAD  "RAMDISK",8  for  disk  or 
LOAD  "RAMDISK"  (or  simply 
LOAD)  for  tape.  After  the  program 
loads,  type  RUN  and  press  RE- 
TURN. The  program  relocates  its 
code  to  the  safe  memory  area  be- 
ginning at  location  49152  and 
prints  the  message  RAM  DISK  AC- 
TIVATED. 64  RAMdisk  is  now 
ready  to  use. 

RAMdisk  Commands 

Following  is  a  list  of  64  RAMdisk 
commands.  All  of  these  commands 
work  in  BASIC  direct  mode  (when 
you  aren't  running  a  program). 

DIR.  This  command  displays  a  di- 
rectory of  the  files  in  the  RAMdisk. 
For  instance,  if  you  type  DIR  and 
press  RETURN,  64  RAMdisk  prints 
a  directory  of  the  RAMdisk.  The 
number  of  bytes  free  for  use  is 
printed  at  the  bottom  of  the  directo- 
ry display. 

NAME.  The  NAME  command  can 
be  used  to  change  the  RAMdisk's 
name,  which  appears  in  reversed 
characters  at  the  top  of  the  directory 
display. 

RSAVE.  The  RSAVE  command 
saves  a  file  to  the  RAMdisk,  storing 
a  copy  of  the  BASIC  program  cur- 
rently in  memory.  Here  is  the  cor- 
rect syntax  for  the  command: 

RSAVE  'TROGRAM" 

Of  course,  you  should  substi- 
tute the  name  of  your  program  for 
PROGRAM  in  this  example.  If  you 
forget  to  specify  a  filename,  64 
RAMdisk  prints  the  error  message 
MISSING  FILENAME  and  doesn't 
save  anything.  The  filename  can  be 
any  combination  of  15  or  fewer 
characters. 


RLOAD.  The  RLOAD  command 
copies  any  program  in  the  RAM- 
disk  back  to  BASIC,  For  example, 
the  statement  RLOAD  ''EX- 
AMPLE" loads  the  program  named 
EXAMPLE  from  the  RAMdisk,  stor- 
ing a  copy  of  it  in  the  usual  BASIC 
program  space. 

SCRATCH.  The  SCRATCH  com- 
mand deletes  a  file  from  the  RAM- 
disk.  For  instance,  the  statement 
SCRATCH  "PROGRAM"  removes 
the  file  named  PROGRAM  from  the 
RAMdisk,  If  you  attempt  to  scratch 
a  file  that  doesn't  exist  in  the  RAM- 
disk,  the  program  prints  the  error 
message  FILE  NOT  FOUND  and 
doesn't  scratch  anything. 

RENAME.  This  command  changes 
the  name  of  a  file  in  the  RAMdisk. 
Here  is  the  syntax  to  use: 
RENAME  "OLDNAME'V'NEWNAME" 

The  RENAME  command  re- 
quires two  filenames:  the  name  of 
the  existing  file  (OLDNAME  in  this 
example)  and  the  new  name  which 
you  want  that  file  to  have  (NEW- 
NAME  in  this  example).  The  file- 
names are  separated  with  a  comma. 
The  error  message  FILE  NOT 
FOUND  appears  if  you  attempt  to 
rename  a  nonexistent  file.  The  error 
message  FILE  EXISTS  appears  if 
you  try  to  use  a  new  name  which 
already  exists  in  the  RAMdisk.  (Ev- 
ery file  in  the  RAMdisk  must  have  a 
unique  name.) 

REPLACE*  This  command  replaces 
the  designated  RAMdisk  file  with 
the  BASIC  program  in  memory, 
using  the  same  filename.  For  in- 
stance, REPLACE  "TEST"  deletes 
the  program  TEST  from  the  RAM- 
disk  and  saves  the  BASIC  program 
in  memory,  using  the  filename 
TEST.  This  is  normally  done  when 
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you  have  made  changes  to  a  pro- 
gram and  wish  to  save  the  revised 
version  with  the  same  name. 

KNEW.  The  RNEW  command  does 
a  NEW  of  the  RAMdisk,  erasing 
every  file  that  it  contains.  Be  very 
careful  when  using  this  command, 
since  the  program  does  not  ask  you 
to  confirm  this  action,  and  there  is 
no  easy  way  to  recover  files  after  an 
RNEW.  If  you  include  a  name  after 
RNEW,  this  command  renames  the 
RAMdisk  with  the  name  specified. 
For  instance,  this  command  erases 
everything  in  the  RAMdisk  and  re- 
names it  as  MYDISK: 
RNEW  "MYDISK" 

EXIT*  This  command  disables  the 
RAMdisk  and  gives  you  the  option 
to  save  the  entire  contents  of  the 
RAMdisk  in  a  single  tape  or  disk 
file.  When  you  type  EXIT  and  press 
RETURN,  the  program  prints  this 
prompt: 

EXIT  RAM  DISK 

ARE  YOU  SURE?  (Y/N) 

If  you  type  N  at  this  prompt, 
nothing  happens.  If  you  type  Y  at 
this  prompt,  the  program  copies  the 
64  RAMdisk  machine  language 
program,  as  well  as  all  the  files  in 
the  RAMdisk,  back  into  the  BASIC 
program  space.  This  is  done  so  that 
you  can  save  the  entire  RAMdisk  as 
a  single  file,  using  a  normal  SAVE 
command  from  BASIC,  The  advan- 
tage of  this  method  is  that  you  can 
reload  the  RAMdisk  program  and 
all  of  the  saved  files  in  one  opera- 
tion, at  the  beginning  of  your  next 
programming  session.  You  do  not 
need  to  use  any  special  tricks  to 
save  this  file.  Here  is  a  typical  SAVE 
command: 
SAVE  "CABOODLE",8 

This  example  saves  64  RAM- 
disk  and  the  entire  contents  of  the 
RAMdisk  under  the  filename  CA- 
BOODLE. If  you  replace  the  8  with 
a  1,  the  file  is  saved  to  tape  instead 
of  disk.  (The  resulting  file  will  be 
considerably  longer  than  64  RAM- 
disk  itself,  since  it  contains  a  copy 
of  every  file  in  the  RAMdisk,  as 
well  as  a  copy  of  64  RAMdisk.) 

Once  you  have  saved  a  master 
file,  you  can  reload  64  RAMdisk 
and  the  individual  files  with  the 
same  load  and  run  commands  you 
would  ordinarily  use  to  activate  the 
RAMdisk.  In  this  case,  for  instance. 


you  would  use  these  commands: 

LOAD  "CABOODLE",8 

RUN 

If  you  type  RUN  and  press  RE- 
TURN at  this  point,  the  program 
moves  the  64  RAMdisk  code  to  its 
normal  location  beginning  at  loca- 
tion 49152,  then  transfers  each  of 
the  saved  files  to  the  RAMdisk,  too. 
When  the  startup  message  appears, 
the  RAMdisk  is  ready  to  use  and  all 
of  the  files  are  in  place. 

Notice  that  the  filename  used 
with  EXIT  has  no  connection  with 
the  name  of  the  RAMdisk  itself  (see 
NAME)  or  the  names  of  individual 
files  contained  in  the  RAMdisk.  As 
a  practical  matter,  however,  you 
will  probably  want  to  use  a  name 
that  reminds  you  what  individual 
files  the  master  file  contains.  If  you 
previously  used  NAME  to  give  the 
RAMdisk  a  meaningful  name,  you 
can  use  the  same  name  when  sav- 
ing the  entire  disk  with  EXIT. 

RAMdisk  Notes 

64  RAMdisk  is  designed  as  a  con- 
venience for  saving  and  loading 
BASIC  programs,  not  as  a  total  re- 
placement for  a  disk  or  tape  drive. 
Thus,  it  supports  only  one  type  of 
file— a  BASIC  program  (PRO)  file— 
and  only  one  form  of  file  access 
(saving  and  loading).  You  cannot 
use  the  RAMdisk  for  other  types  of 
files,  such  as  sequential  (SEQ)  files. 
And,  for  instance,  you  cannot 
OPEN  a  file  in  the  RAMdisk  for 
reading  or  writing,  even  though 
those  are  legitimate  operations  for 
program  (PRG)  files  on  tape  or  flop- 
py disk. 

Like  all  RAMdisks,  64  RAM- 
disk  is  volatile,  meaning  that  it  dis- 
appears completely,  together  with 
all  its  contents,  when  you  turn  off 
the  computer.  For  this  reason,  you 
should  make  frequent  backup 
copies  of  RAMdisk  programs  on 
disk  or  tape.  To  make  a  backup 
copy,  load  the  program  into  BASIC 
memory  with  RLOAD;  then  save  it 
to  disk  or  tape  in  the  usual  way. 

This  program  occupies  the 
memory  area  beginning  at  location 
49152  ($C000),  so  you  cannot  use  it 
with  any  other  machine  language 
program  or  utility  that  occupies  the 
same  space.  Because  this  program 
uses  the  "hidden"  RAM  underlying 
the  64's  ROM  (Read-Only  Memo- 
ry) chips,  it  is  also  incompatible 


with  programs  which  use  that  area 
of  RAM.  64  RAMdisk  does  work 
with  either  TurboTape  or  Turbo- 
Disk,  but  not  with  both  at  the  same 
time,  since  those  programs  are  in- 
compatible with  one  another.  You 
must  relocate  TurboDisk,  as  ex- 
plained in  the  TurboDisk  article, 
before  using  it  with  64  RAMdisk; 
the  best  place  to  put  TurboDisk  is  as 
close  as  possible  to  the  top  of 
BASIC  RAM. 

The  64  has  a  total  of  16K 
(16,384  bytes)  of  RAM  under  its 
ROM  chips.  Half  of  this  lies  under 
the  BASIC  ROM,  and  the  other  half 
lies  under  the  Kernal  operating  sys- 
tem ROM.  Not  all  of  this  RAM  can 
be  used  for  file  storage  with  64 
RAMdisk.  Every  program  stored  in 
the  RAMdisk  requires  an  extra  18 
bytes  for  a  directory  entry,  15  bytes 
for  a  filename  entry,  1  byte  as  a 
filename  marker,  and  2  bytes  for  a 
pointer  to  the  beginning  of  the  next 
program. 

Programs  are  stored  beginning 
at  the  bottom  of  the  RAM  und^r 
BASIC  and  growing  upward,  to- 
ward higher  memory  locations.  The 
directory  begins  at  the  top  of  the 
RAM  under  the  Kernal  and  grows 
downward,  toward  lower  memory 
locations.  If  you  fill  the  8K  space 
under  BASIC  with  programs,  64 
RAMdisk  uses  as  much  of  the  RAM 
under  the  Kernal  as  needed.  If  you 
try  to  save  a  program  that's  bigger 
than  the  amount  of  free  space  left  in 
the  RAMdisk,  the  program  prints 
the  error  message  RAM  DISK  FULL 
and  doesn't  save  anything. 

It's  theoretically  possible  to 
create  so  many  individual  files  that 
the  RAMdisk  directory  would  fill 
all  of  the  RAM  under  the  Kernal 
ROM.  However,  since  it  would  re- 
quire more  than  454  files  to  over- 
flow the  directory,  64  RAMdisk 
does  not  check  for  this  unlikely  sit- 
uation, and  does  not  print  an  error 
message  if  it  occurs. 

64  RAMdisk 

Please  refer  to  the  "MLX"  artide  elsewhere  In 
this  issue  before  entering  the  following 
program. 
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Printing 
Special 
Characters 


George  Vogel 


A  word  processor  and  printer  can  do 
much  more  than  meets  the  eye.  Here 
are  three  techniques  that  explore 
ways  you  can  produce  printed  text 
with  special  characters  for  use  in 
foreign-language  sets  or  scientific  no- 
tation. Although  the  example  pro- 
gram is  written  for  Apple  II 
computers,  the  general  technique  can 
be  adapted  to  any  personal  computer. 


Word  processors  are  generally  lim- 
ited in  the  kind  of  text  they  can 
print.  While  most  can  produce  un- 
derlining, boldface,  and  super- 
scripts, they  are  not  usually 
designed  to  handle  special  charac- 
ters such  as  foreign  language  or 
scientific  symbols.  In  fact,  your 
printer  may  already  be  capable  of 
printing  such  special  characters,  but 
the  process  of  using  them  from  a 
word  processor  is  often  difficult. 
This  article  explores  three  possible 
solutions  to  the  problem. 


Easy,  But  Limited 

The  first,  and  most  obvious,  ap- 
proach may  be  suitable  for  foreign- 
language  text.  Many  printers  have 
one  or  more  international  character 
sets,  v^hich  can  be  selected  by  set- 
ting DIP  sv^^itches  as  described  in 
the  printer  manual  The  various 
special  characters  are  then  available 
in  place  of  certain  less-essential 
characters  such  as  brackets,  braces, 
and  so  on.  One  limitation  of  this 
method  is  that  it  works  only  if  your 
keyboard  has  keys  corresponding 
to  the  characters  which  are  replaced 
with  international  characters.  The 
Apple  11+  keyboard,  for  instance, 
lacks  many  such  keys. 

Let's  look  at  a  fairly  typical 
example.  The  Star  Micronics  SG-10 
printer,  which  is  in  many  respects 
very  similar  to  Epson  printers,  of- 
fers six  international  character  sets; 
German,  Italian,  Danish,  Swedish, 
Spanish,  and  French.  Unfortunate- 
ly, only  the  first  four  sets  are  com- 
plete. (The  French  and  Spanish 
character  sets  require  more  letters 
with  diacritical  marks  than  are  pro- 
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vided  in  the  printer  character  set.) 
And  there  are  many  languages,  of 
course^  which  can't  be  represented 
with  any  of  these  character  sets. 
We'll  see  how  those  languages 
might  be  accommodated  later  in 
this  article. 

The  Top  128 

A  second  method  of  producing  spe- 
cial characters  involves  the  highest 
128  characters  in  the  ASCII  charac- 
ter set.  As  you  may  know,  the  stan- 
dard ASCII  character  set  uses 
character  codes  0-127  for  the  typi- 
cal English  alphabet,  numerals,  and 
punctuation.  Character  codes  in  the 
range  128-255  have  no  standard 
meaning,  so  they  are  often  used  for 
block  graphics  and  various  other 
special  symbols.  These  sets  vary 
greatly  from  one  printer  to  another, 
but  it's  possible  that  yours  has  the 
characters  you  need  for  a  particular 
application. 

Alttiough  some  computers  can 
produce  ASCII  codes  above  127 
from  the  keyboard  (often  by  press- 
ing two  keys  at  once),  the  Apple  II 
series  does  not  have  this  capability. 
How,  then,  can  you  use  these  spe- 
cial codes  in  a  word  processor?  One 
method  is  to  sacrifice  a  seldom-used 
pair  of  special  printer  commands. 

To  illustrate,  say  that  you  have 
a  Star  SG-10  printer  and  you  are 
using  the  Word  Handler  II  word  pro- 
cessor on  an  Apple  11  computer. 
This  particular  word  processor  can 
be  set  up  for  many  different  printers 
because  it  allows  you  to  specify  the 
control  code  sequence  (often  called 
an  escape  code)  which  activates  each 
of  the  printer's  special  features. 
Let's  assume  that  you  are  willing  to 
do  without  the  ability  to  print  su- 
perscript characters.  As  with  many 
such  features,  using  superscript  in- 
volves two  commands:  one  to  turn 
superscript  on  and  the  other  to  turn 
it  off. 

The  normal  SG-10  escape  codes 
for  superscript  are  $1B  $53  $01  and 
$1B  $54  $1B  $48.  The  first  character 
in  each  code — $  1 B,  or  decimal  27 — 
is  usually  called  the  escape  charac- 
ter (hence  the  term  escape  code). 
This  character  simply  serves  as  a 
signal  that  the  printer  should  inter- 
pret the  following  characters  as 
control  characters — commands — 
rather  than  as  something  to  print 
literally. 


To  adapt  the  word  processor 
for  printing  the  special  characters, 
enter  the  printer  setup  feature  and 
replace  the  normal  escape  code  for 
superscript  o?i  with  $18  $3E  and  the 
code  for  superscript  off  with  $1B 
$3D.  These  are  the  SG-10  printer's 
commands  for  set  highest  bit  to  1 
and  set  highest  bit  to  0.  Since  the 
highest  bit  of  an  eight-bit  character 
is  equal  to  128,  setting  the  highest 
bit  to  1  has  the  effect  of  adding  128 
to  the  ASCII  code.  Thus,  when  the 
first  condition  is  activated,  the 
printer  automatically  adds  128  to 
every  character  it  receives,  before  it 
prints  that  character.  This  remains 
in  effect  until  canceled  with  the  sec- 
ond code.  If  you  type  the  letter  F 
(ASCII  70)  in  this  mode,  the  printer 
prints  ASCII  198  (70  +  128).  On 
the  Star  printer,  character  198  hap- 
pens to  be  a  degree  (°)  symbol,  so 
this  method  offers  an  easy  means  of 
generating  that  symbol  for  math  or 
scientific  documents.  Whenever  you 
need  to  use  that  symbol,  you  must 
cause  the  word  processor  to  issue 
the  command  it  would  normally  use 
to  activate  superscript.  You  then 
type  an  F,  followed  by  the  command 
to  turn  off  superscript.  The  control 
code  goes  to  the  printer,  but  the 
word  processor  treats  the  F  as  usual, 
so  the  screen  display  shows  an  F 
rather  than  the  special  symbol. 

User-Defined  Characters 

A  third,  more  versatile,  approach  is 
possible  if  you  have  a  dot-matrix 
printer  with  the  ability  to  print 
user-defined  characters.  These  are 
simply  characters  whose  shape  you 
design  on  your  own.  Typically,  you 
design  the  special  character  set  in  a 
separate  operation  and  store  it  in  a 
disk  file.  Before  using  user-defined 
characters,  you  must  invoke  a  spe- 
cial command  to  read  the  new  char- 
acter shapes  from  the  disk  file  into 
the  computer's  memory  and  down- 
load, or  send,  them  to  the  printer. 
Downloading  new  character 
definitions  is  possible  only  on  a 
printer  which  contains  RAM  (Ran- 
dom Access  Memory)  set  aside  for 
this  purpose.  Under  normal  circum- 
stances, the  printer  uses  the  charac- 
ter shapes  permanently  recorded  in 
a  ROM  (Read  Only  Memory)  chip. 
But  if  you  store  new  shapes  in  RAM 
and  send  the  appropriate  com- 
mand, the  printer  uses  the  RAM- 
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based  shape  definitions,  instead. 

We  can  use  the  method  de- 
scribed in  the  previous  section  to 
send  the  command  that  makes  the 
printer  switch  to  the  RAM  character 
set.  In  the  case  of  the  SG-10,  for 
instance,  the  code  to  switch  to  the 
RAM  characters  is  $1B  $24  $01,  and 
the  code  to  switch  back  to  the  normal 
characters  in  ROM  is  $1B  $20  $00. 

The  details  of  this  process  will 
vary  from  one  printer  to  the  next,  so 
consult  your  printer's  manual  for 
specific  guidance.  To  give  you  a 
general  idea  of  how  it's  done,  we'll 
describe  the  procedure  for  the  Star 
SG-10.  On  this  particular  printer, 
each  character  is  formed  out  of  dots 
within  a  matrix  that's  8  dots  high 
and  11  dots  wide.  The  two  right- 
most columns  are  normally  left 
blank  to  provide  white  space  be- 
tween characters. 

On  Star  printers,  each  vertical 
line  of  a  character  can  be  described 
by  a  byte,  or  a  number  in  the  range 
0-255.  A  character  contains  11  ver- 
tical lines  of  dots.  Thus,  to  describe 
the  dot  pattern  of  a  character,  we 
must  supply  a  series  of  1 1  numbers, 
each  in  the  range  0-255. 

For  each  number  in  the  charac- 
ter definition,  a  dot  in  the  lowest 
position  is  equal  to  1;  the  next  high- 
est dot,  2;  the  next,  4;  and  so  on,"  up 
to  128  in  the  topmost  position.  The 
figure  shows  how  you  might  define 
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the  character  A  for  a  Star  SG-10 
printer.  The  numbers  on  the  left 
side  of  the  figure  indicate  the  value 
of  a  dot  in  the  corresponding  col- 
umn. At  the  top  of  each  column  is 
the  number  for  that  vertical  line  of 
the  character.  This  particular  char- 
acter can  be  defined  with  the  num- 
bers 0,  30,  32,  72,  128,  8,  128,  72, 
32,  30,  0. 

Three  more  pieces  of  infor- 
mation are  needed  to  describe  the 
character  completely.  The  first  two 
define  where  in  the  character  set 
this  character  will  appear.  For  in- 
stance, if  you  wanted  the  new  char- 
acter to  replace  the  #  symbol, 
ASCII  35,  you  would  supply  the 
number  35.  The  SG-10  requires  a 
range  of  positions  where  the  new 
character  is  to  be  installed,  so  the 
second  value  will  also  be  35.  The 
third  value  combines  information 
about  the  width  of  the  character 
(for  proportional  spacing,  if  used) 
and  information  to  lower  the  char- 
acter to  produce  a  descender,  or  tail. 
When  downloading  a  user-defined 
character  to  this  printer,  you  send 
these  three  values  first,  followed  by 
the  11  numbers  which  actually  de- 
fine the  shape  of  the  character. 

The  example  program  follows 
this  procedure  to  download  a  num- 
ber of  new  characters  to  the  printer. 
Lines  150-160  are  necessary  be- 
cause the  Apple  printer  card  cannot 
transmit  eight-bit  quantities. 

This  method  allows  you  to  de- 
fine as  many  new  characters  as  you 
need,  limited  only  by  the  number  of 
characters  available  from  your  key- 
board. In  a  few  cases,  you  might 
want  a  new  character  set  that  com- 
pletely replaces  the  normal  ROM 
character  set.  It's  more  common  to 
copy  most  of  the  ROM  characters 
into  RAM  and  redefine  only  part  of 
the  character  set.  Once  the  new 
characters  have  been  downloaded, 
you  can  switch  between  them  and 
the  ROM  characters  at  will. 

You  may  be  wondering  whether 
these  techniques  will  work  with 
your  particular  word  processor  and 
printer.  The  only  way  to  find  out  is 
to  try.  Printers  differ  very  widely  in 
their  capabilities,  so  you  will  need 
to  read  your  printer  manual  careful- 
ly before  going  any  further.  Most 
printer  manuals  include  example 
programs  in  BASIC  which  demon- 
strate that  printer's  capabilities. 


Word  processors,  too,  handle  spe- 
cial features  in  different  ways.  If 
your  word  processor  allows  you  to 
specify  the  actual  control  codes  for 
special  features,  you  can  implement 
with  it  any  of  the  special  features 
that  your  printer  can  handle.  If  the 
word  processor  is  dedicated  to  spe- 
cific printers  and  does  not  let  you 
change  the  control  codes,  your  only 
solution  is  to  use  downloaded  char- 
acters, as  long  as  your  printer  sup- 
ports them. 


Printer  Example 

For  instnjctlons  on  entering  this  program, 
please  refer  to  '^COMPUTEI's  Guide  to  Typing 
In  Programs"  elsewliere  in  this  issue, 

fl3  10  REM  C0PYRI6HT  1987  COMPUTE 
f  PUBLICATIONS,  INC-  ALL  R 
IGHTS  RESERVED 
CI  15  TEXT  :  HOME  :  PRINT  "COPYR 
IGHT  1987":  PRINT  "COMPUTE 
:  PUBLICATIONS,  INC":  PR IN 
T  "ALL  RIOHTS  RESERVED" 
7A  17  FOR  I  =  1  TO  1000:  NEXT  I 
28  20  D$  =  CHR*  (4):E*  =  CHR*  (2 

7) 
K   30  DIM  A(95)  ,M7.(i4) 
7F  40  HOME  :  INVERSE  :  PRINT  " 

DOWNLOAD.  PRE 
N  C  H      ":  NORMAL  :  PRI 
NT 
49  50  PRINT  :  PRINT  "PRINT  CHARA 
CTER  TABLE?  (Y/NJ  ";;  SET 
PR*:  PRINT  :  PRINT 
eO  60  PRINT  "(E)MPHASIZED?":  PRI 
NT  " (P)RDPORTIDNAL?"!  PRIN 
T  *'CD>DUBLE"STRIKE  PROPORT 
lONAL?  ":  PRINT  :  PRINT  "( 
OR  ANY  OTHER  KEY  FOR  RESUL 
AR)  "s?  BET  PS%i    PRINT 
IF  70  PRINT  :  PRINT  "DOWNLOADING 

CHARACTERS  -  WAIT" 
M  80  PRINT  D*"PR#1":  PRINT  E»"3 
"|E*"<E"  CHR*  (0);:  REM  INI 
T.  PRINTER,  COPY  CHAR.  ROM 
TO  DL  RAM 
18  90  ONERR  eOTO  190 
DB  100  :::  REM  :  REPLACE  REGULAR 
BY  CUSTOM  CHARS  IN  DL  RA 
M 
79  110  FOR  K  =  1  TO  14:  READ  MX< 

K) :  NEXT 
5D  120  S  =  S  +  l:AtS>  =  M7-<1) 
D9  130  PRINT  E«"«"  CHR*  (1); 
Bf  140  FOR  K  =  1  TO  14 
53  150  IF  PEEK  (49601)  >  127  THE 

N  150 
C7  160  POKE  49296, MX (K) 
EC  170  NEXT  K 
n    180  GOTO  110 

BF  190  ON  PR*  =  "Y"  GOSUB  260:  R 
EM  :  PRINT  CHAR  TABLE  IF 
REQUESTED 
91  200  :::  REM  :  SET  PRINTING  ST 

YLE 
79  210  IF  PS*  =  "E"  THEN  PRINT  E 

*"E";:  REM  EMPHASIZED 
ID  220  IF  PS*  =  "P"  THEN  PRINT  E 
*  CHR*  (112>  CHR*  <l)js  R 
EM  PROPORTIONAL 
53  230  IF  PS*  =  "D"  THEN  FRiNT  E 
♦"G";E*  CHR*  (112)  CHR*  < 


1);:  REM  DBL.STRIKE/PROPO 

RTIONAL 
£fl  240  PRINT  :  PRINT  D*"PR«  0": 

END 
B2  250  :::  REM  :  PRINT  LIST  OF  D 

OWNLOAD  CHARS  WITH  THOSE 

ACTIVATING  THEM 
34  260  PRINT  :  PRINT  D*"PR#1":  P 

RINT  E*"M"  CHR*  (8>;:CL  = 
32:  REM  L.  MARGIN,  CHARS 

/LINE 
DD  270  R  =  S:F  =  IrL  =  CL 
C7  280  IF  R  >  CL  GOTO  300 
69  290  L  =  F  +  R  -  1 
2F  300  FOR  J  ^  F  TO  L:  PRlNlT  CHR 

*  (A(J>>"  "; :  NEXT  :  PRIN 
T  :  REM  CONTROLLING  CHARA 
CTERS 

32  310  PRINT  E*"4"  CHR*  (1);:  RE 

M  DL  RAM  "ON" 
8D  320  FOR  J  =  F  TO  L;  PRINT  CHR 

*  (A(J))"  "; :  NEXT  :  PRIN 
T  :  REM  DL  CHARACTERS 

U   330  PRINT  E*"*"  CHR*  C0) :  REM 

DL  RAM  "OFF" 
37  340  IF  L  <  >  S  THEN  F  =  F  +  C 

L:L  =  L  +  CL:R  =  R  -  CL: 

GOTO  280 
9f  350  PRINT  E«"S";:  RETURN 
4B  1010  DATA  49,49,139,4,10,160, 

10,96,10,32,28,2,0,0:  RE 

M  a  grave 
B0  1020  DATA  50,50,139,4,10,96,3 

0,160,10,96,28,2,0,0:  RE 

M  CIRCUMFLEX 
34  1030  DATA  51,51,139,28,34,8,3 

4,72,34,136,34,24,0,0s  R 

EM  ACCUTE 
CB  1040  DATA  52,52,139,28,34,136 

,34,72,34,8,34,24,0,0:  R 

EM  GRAVE 
17  1050  DATA  53,53,139,20,34,72, 

34, 136,34,72,34,24,0,0: 

REM  CIRCUMFLEX 
*F  1060  DATA  54,54,152,0,98,0,19 

0,0,66,0,0,0,0,0:  REM  CI 

RCUMFLEX 
n  1070  DATA  55,55,152,0,162,0,6 

2,0,130,0,0,0,0,0:  REM  D 

lERESIS 
7E  1080  DATA  56,56,139,28,34,64, 

34, 128,34,64,34,28,0,0: 

REM  CIRCUMFLEX 
S7  1090  DATA  57,57,139,60,2,128, 

2,64,2,0,60,2,0,0:  REM  8 

RAVE 
fta    1100    DATA    48,48,139,60,2,64,2 

,128,2,64,60,2,0,0:     REM 

CIRCUMFLEX 
30  1110  DATA  37,37,139,28,34,136 

,34,8,34,136,34,24,0,0: 

REM  DIERESIS 
21  1120  DATA  35,35,10,56,68,0,69 

,0,71,0,68,0,0,0:  REM  CE 

DILL  A 
24  1130  DATA  36,36,139,120,132,0 

, 133, 0, 135, 0, 132, 72, 0,0: 
REM  CEDILLA 
2C  1140  DATA  38,38,152,0,0,64,16 

0,0,160,64,0,0,0,0:  REM 

DEGREE  _ 
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Amiga  Disk-Based  Fonts 


Expanding  on  a  previous,  related  arti- 
cle (see  ''Amiga  System  Fonts"  in  the 
April  1987  issue  of  COMPUTE!),  this 
article  shows  yau  how  to  load  custom 
text  fonts  from  disk  and  install  them 
from  Amiga  BASIC 


In  the  Utilities  drawer  of  the  Amiga 
Workbench  disk  is  a  useful  tool 
called  Notepad.  One  attractive  fea- 
ture of  this  mini-word  processor  is 
its  ability  to  use  a  variety  of  text 
fonts.  This  article  explains  how  to 
use  those  same  fonts — or  any  disk- 
based  text  font — in  Amiga  BASIC. 
Amiga  BASIC  does  not  provide  any 
direct  means  of  loading  a  custom 
font  from  disk.  However,  this  can 
be  accomplished  by  calling  system 
routines  which  are  used  by  the 
computer  itself. 

Where  Are  My  Fonts? 

The  fonts  used  by  Notepad  are  lo- 
cated in  the  fonts  directory  of  the 
Workbench  disk.  You  can  use  the 
FILES  command  to  get  a  listing  of 
that  directory.  Type  this  command 
in  the  BASIC  output  window  and 
press  Return: 
files  'Vorkbench:fonts" 

Each  font  in  the  fonts  directory 
has  its  ovsm  subdirectory  which 
contains  the  various  sizes  for  that 
font.  Font  sizes  are  specified  in 
units  called  points,  which  are  equal 
to  1/72  inch.  Thus,  a  9-point  font 
has  characters  9/72  inch  in  size, 
and  so  on.  The  different  text  styles 
(italicized,  boldface,  and  so  on)  are 
not  stored  in  the  font  directory; 
these  styles  are  generated  by  selec- 
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tively  distorting  the  shapes  found 
in  the  basic  font  file. 

The  program  included  with 
this  article  can  select  any  of  the 
disk-based  fonts,  with  eight  styles 
for  each  font.  Table  1  lists  the  fonts, 
and  Table  2  lists  the  various  styles. 
Version  1.2  of  the  Amiga  operating 
system  adds  a  few  new  sizes  to 
existing  fonts. 

Table  1:  Fonts 


Fonts 


Sizes 


Topaz 

8,  9,  11 

Ruby 

8.  12.  15 

Diamond 

12,  20 

Opal 

9.  12 

Emerald 

17,  20 

Garnet 

9.  16 

Sapphire 

14,  19 

Table  2: 

Font  Styles 

0       plain  text  (Workbench  default) 

1       underline 

2       boldface 

3       boldface  and  underline 

4       italics 

5       italics  and  underline 

6       italics  and  bold 

7       italics, 

bold,  and  underline 

Program  1  uses  two  system  li- 
braries named  graphics. library  and 
diskf on t,  library.  In  order  for  Amiga 
BASIC  to  use  these  libraries,  it  must 
have  a  file  description  of  the  library 
in  a  form  which  it  understands. 
This  form  is  called  a  bmap  file.  The 
bmap  file  is  essentially  a  hst  of 
pointers  that  allow  BASIC  to  access 
library  routines. 

Before  you  can  run  Program  1, 
you  must  make  sure  that  the  correct 
bmap  files  are  present  on  the  same 
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A6c4ef5hi|feUNO|)(|^tu\TOttf;K<)i2^4^6;l9/(fi^ 

Q6cdtl.\liijtenopq?3t«via)y/<tM()j+\l/?<[i 

ifffij  ^Ee  LookiNj  At  fioli  style 


r 

m  is  thf  12  pdnt  nrbi'  font                             ^^ 

Old:  Mi  Mmt  buttai  fcr  ttc  tiM  font 

mmuxsMikrmiimiz 
msisiTALic^mis 

^ 

^ 

This  article  shows  how  to  access  disk- 
resident  character  fonts  from  Amiga 
BASIC,  Two  of  the  Amiga's  seven  fonts 
are  shown  in  these  photographs. 

disk  as  Program  1,  The  first  such  file, 
graphics.bmap,  is  included  in  the 
BASICDemos  drawer  of  the  Amiga 
Extras  disk.  The  second  file,  named 
diskf ont, bmap,  must  be  created. 

If  you  have  version  1.2  of  the 
Amiga  operating  system  (available 
as  an  inexpensive  upgrade  from 
any  Amiga  dealer),  you  can  create 
diskfont.bmap  quite  easily.  The 
BASICDemos  disk  for  1.2  contains 
a  BASIC  program  named  Con- 
vertFd,  as  well  as  a  directory  named 
FD1.2.  Run  the  ConvertFd  pro- 
gram, using  the  file  named  disk- 
font.lib_fd.  When  the  program  is 
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finished,  the  disk  contains  disk- 
font. bmap.  If  you  haven't  obtained 
the  1.2  upgrade,  type  in  and  run 
Program  1,  which  reads  values 
from  DATA  statements,  checks 
them  for  accuracy,  and  creates  disk- 
font. bmap  on  the  current  disk. 

Before  you  run  Program  1, 
make  sure  that  both  graphics. bmap 
and  diskfont.bmap  are  on  the  same 
disk  as  Program  1.  The  location  of 
these  files  is  important.  They  must 
be  either  in  the  current  directory  or 
in  the  directory  named  LIBS  on  the 
disk  used  when  you  booted  the  sys- 
tem. The  LIBS  (LIBrarieS)  directory 
is  a  good  place  for  bmap  files,  since 
their  purpose  is  to  give  you  access 
to  libraries.  If  you  don't  have  the 
bmap  files  in  the  correct  place, 
BASIC  will  stop  with  a  Tile  not  found 
error  when  you  run  Program  1, 

When  you  run  the  program,  it 
displays  the  various  fonts  on  the 
screen  in  different  sizes  and  waits 
for  you  to  click  the  mouse  button 
before  proceeding  to  the  next  font. 

The  most  important  part  of  Pro- 
gram 1  is  contained  in  the  subpro- 
gram named  FontSelect,  which 
appears  at  the  end  of  the  program. 
After  you  have  tested  Program  1 
and  have  saved  a  copy,  delete  ev- 
erything in  the  program  except  the 
FontSelect  subprogram.  Then  save 
the  subprogram  under  a  new  name 
as  an  ASCII  file,  so  that  it  can  be 
MERGEd  with  other  programs.  To 
save  a  program  in  ASCII  form,  add 
the  characters  ^a  to  the  end  of  a 
normal  save  command.  For  in- 
stance, to  save  the  subprogram  with 
the  name  FontSelect,  you  would 
type  this  command  in  the  BASIC 
output  window  and  press  Return: 

save  "FontSeIect",a 

The  FontSelect  subprogram  is 
invoked  with  a  CALL  statement  in 
the  main  program.  Three  items  of 
information  are  passed  to  Font- 
Select  in  the  form  of  variables. 

The  first  variable  is  a  string 
named  font$.  This  string  contains 
the  name  of  the  font  you  wish  to 
use  (Garnet,  Ruby,  and  so  on).  If 
the  string  is  a  null  string  ("  ",  a 
string  containing  no  characters), 
only  a  style  change  occurs. 

The  second  and  third  variables 
passed  to  FontSelect  are  numeric 
variables  of  the  short  integer  type. 
The  variable  height  %  defines  the 


point  size  that  you  wish  to  use  (see 
Table  1),  and  style%  defines  the 
style  to  use  (Table  2). 

Opening  And 
Closing  Libraries 

A  few  additional  statements  are 
needed  to  prepare  for  the  CALL  to 
FontSelect,  and  to  clean  up  after- 
ward. In  Program  1,  the  preparatory 
statements  are  grouped  together  at 
the  beginning,  immediately  after  the 
first  two  REMark  statements.  The 
DEFLNG  statement  causes  all  sim- 
ple variables  to  default  to  the  long 
integer  type,  (Note  that  this  declara- 
tion is  overridden  by  the  short  inte- 
ger type  specifier  attached  to 
height%  and  style%.) 

The  LIBRARY  and  DECLARE 
FUNCTION  statements  actually 
give  you  access  to  library  routines. 
These  statements  should  appear  in 
the  initialization  section  of  the  pro- 
gram, before  the  first  CALL  to  the 
FontSelect  subprogram. 

When  the  program  is  about  to 
terminate,  you  should  take  some 
additional  steps  to  close  the  fonts 
and  the  libraries.  The  CALL  to  the 
CloseFont  function  closes  any  fonts 
that  were  previously  opened.  (A 
bug  in  version  1.1  of  the  operating 
system  prevents  this  CALL  from 
working  correctly.  Version  1.2  cor- 
rects the  bug.  If  you  have  version 
1.1,  omit  the  line  containing  the 
CALL  to  CloseFont  or  put  a  REM  in 
front  of  the  line.) 

The  final  CALL  to  FontSelect 
resets  the  font  to  the  system  font. 
Topaz.  While  not  absolutely  neces- 
sary, it's  considered  good  manners 
for  programs  which  change  the 
computer  environment  to  restore 
the  original  environment  as  closely 
as  possible  before  terminating. 

The  LIBRARY  CLOSE  state- 
ment closes  libraries  that  were  pre- 
viously opened.  If  you  omit  these 
final  housekeeping  chores,  the  com- 
puter may  not  crash,  but  the  librar- 
ies will  remain  open,  wastefully 
occupying  memory  which  would 
otherwise  be  freed  for  other  tasks. 

The  program  module  named 
TestSection  uses  another  system 
routine  named  text  when  printing 
words  in  boldface  and  italicized 
styles.  This  method  prevents  the 
characters  in  those  words  from 
overlapping,  as  they  would  if  you 
printed  the  words  with  PRINT. 


Program  1:  Amiga  Disk- 
Based  Fonts 

For  instructions  on  entering  these  programs, 
please  refer  to  "COMPUTERS  Guide  to  Typing 
fn  Programs"  elsewhere  in  this  issje. 

REM  Copyright  1987  COMPUTE  1  Publ 
ications,  Inc* 
REM  All  Rights  Reserved-* 
REM  Program   SelectFont-* 
REM  Provides  for  use  of  Amiga  di 
sk  based  fonts  from  Amiga  Basic-* 
PRINT  "Copyright  1987  COMPUTEi  P 
ublications.  Inc."'-* 
PRINT  "All  Rights  Reserved"-* 
DEFLNG  a-z        'all  variables 
default  to  long  integer-* 
•include  optional  CHDIR  command 
here  (CHDIR  ":BMAPS")-* 
LIBRARY  "diskfont  .Library"-* 
LIBRARY  "graphics.  Library"-* 
DECLARE  FUNCTION  OpenDiskFont  LI 
BRARY-* 

DECLARE  FUNCTION  AskSoftStyLe  LI 
BRARY-* 

'the  above  commands  must  be  plac 
ed  in  the  main  body  of  your  prog 
ram-* 

TestSection;-* 

BREAK  ON-* 

ON  BREAK  GOSUB  Housekeeping-* 

READ  ti$,t2$-* 

FOR  i==0  TO  6   '  look  at  7  fonts-* 

READ  font$,height%-* 

CALL  FontSeLect  (  f ont$  ,  lieight%  ,  st 

yLe% )  -* 

FOR  styLe%=0  TO  4  STEP  2    '  look' 

at  3  styles  each-* 

CALL  FontSeLect {  "",0,  styLe%)-* 

IF  styLe%=0  THEN-* 

LOCATE  1,1: PRINT   "This  is  the"? 

height%  r  "point  "  ;  f ont$  ;  "  font"-* 

PRINT   "Click  left  mouse  button 

for  the  next  font"< 

PRINT  ti$;PRINT  t2$-* 

ELSEIF  styLe%=2  THEN-* 

a?="YOU  ARE  LOOKING  AT  BOLD  STYL 

E"-* 

PRINT-* 

CALL  text(WIND0V^(8)  ,SADD(a?)  ,  LEN 

(a$)  )  :  PRINT-* 

ELSEIF  styLe%  =  4  THEN-* 

a$^"THIS  IS  ITALICS  STYLE"-* 

PRINT-* 

CALL    text(V/IND0W(8)  ,SADD(a$)  ,  LEN 

Ca$)  )  !  PRINT-* 

END    IF-* 

NEXT    StyLe%-* 

-4 

WaitForMouse  :  -* 

IF  NOT  MOUSE(0)  THEN  WaitForMous 

e-* 

CLS-* 

'include  the  following  CALL  stat 

ement  when  using  workbench  1 . 2'< 

'as  it  closes  fonts  and  frees  me 

mory  -* 

'CXLL  CloseFont (WINDOW( 3) , f ontpt 

r)  -* 

NEXT  i-* 

■* 

Housekeeping  :-* 

CALL  FontSeLect ("topaz ",8,0)   'r 

eturn  to  default  system  font-* 

LIBRARY  CLOSE-* 

END-* 

-4 

DATA   ABCDEFGHIJKLMNOPQRSTUV\^YZ0 

12345678910#$%-* 

DATA  abcdefghi jklmnopqrstuvwxyz" 

&M)=-H\l/?<[{-* 
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DATA  topaz, 9 , ruby, 12,diamond, 12, 

opal,  ll-« 

DATA  emerald, 20, garnet, 16 , sapphi 

re, 19^ 

REM  End  Of  TestSection-* 

< 

SUB  FontSeLeGt{ font$,height%,sty 

Le%)  STATIC  < 

IF  font$  <>  ""  THEN< 

textAttr(0)=SADDCfont$+" .font* '+C 

HR${0))^ 

textAttrCl)=^height%*65536&'* 

fontptr=OpenDiskFont(VARPTR( text 

Attr(0)) )^ 

IF  fontptr  THEN  SetFont  WINDOWCS 

)  ,  fontptr-* 

END  IF-* 

perinited%=AskSof  tStyLe^  (WINDOV^C  8 

))< 

CALL  SetSoftStyle  (WINDOWC 8 ) , sty 

Le%,  permited%)'* 

END  SUB-* 


Program  2:  DiskFont.bmap 
Filemaker 

REM  Copyright  1987  COMPUTE I  Publ 

ications.  Inc.-* 

REM  Ail  Rights  Reserved-t 

'  DiskfontMaker .  Creates  Diskfon 

t-bmap  file  on  disk.-* 

PRINT  "Copyright  1987  COMPUTE 1  P 

ublications.  Inc.-* 

PRINT  "All  Rights  Reserved"* 

fiLe?-"Diskfont.bmap"-* 

READ  fiLesize,  checksum'* 

PRINT  "Checking  data  statements. 

.  .'•-* 

PRINT-* 

FOR  j  =  l  TO  fiLesize-* 

READ  a$-* 

a=VAL{"&H"+a$)-f 

check-check+a* 

NEXT  j-* 

RESTORE  DiskFontData-* 

IF  check=checksam  THEN  GOTO  0K-* 

PRINT  "Typing  error:  Check  DATA 

statements ,  "■* 

END-* 

-* 

OK:-* 

PRINT  "Creating  Diskfont .bmap  fi 

le,  .  ."-* 

ON  ERROR  GOTO  CreationError-* 

OPEN  fiLe$  FOR  OUTPUT  AS  #i-t 

FOR  j==l  TO  fiLesize-* 

READ  a$-6 

a=VAL{"£cH"+a$)-« 

PRINT  #l,CHR$(a)  ;-* 

NEXT  j-* 

CLOSE* 

PRINT  "Finished"* 

END-* 

* 

CreationError :* 

PRINT  "Error  ";ERR* 

END* 

-* 

DATA  34,  3196* 

DiskFontDatar* 

DATA   4f, 70, 65, 6e, 44, 69, 73, 6b* 

DATA   46,6f,6e,74,00,ff,e2,09* 

DATA   00 , 41 , 76 , 61 , 69 , 6c , 46 , 6  f * 

DATA      6e,74,7  3,00,ff ,dc,09,01* 

DATA      02,00* 


Atari  NoDOS 


Emmanuel  Gendrano 


Everyone  knows  it's  impossible  to 
save  an  Atari  BASIC  program  to  disk 
without  DOS — or  is  it?  Although  you 
may  not  need  to  use  it  often,  this 
program  can  be  a  real  lifesaver  on 
occasions  where  DOS  becomes  cor- 
rupted, or  zvhen  you  enter  BASIC 
without  first  booting  DOS, 


One  of  the  most  fearsome  messages 
an  Atari  BASIC  programmer  can  re- 
ceive is  ERROR  130,  the  unknown 
device  error.  If  this  message  appears 
when  you  attempt  to  save  a  BASIC 
program  to  disk,  it  usually  means 
that  the  system  doesn't  recognize 
the  disk  drive,  leaving  you  no  way 
to  save  your  work.  This  sometimes 
happens  when  misdirected  POKEs 
or  other  accidents  corrupt  the  DOS 
(Disk  Operating  System)  in  memo- 
ry. It  can  also  occur  if  you  forget  to 
boot  DOS  when  you  turn  on  the 
computer. 

Since  the  purpose  of  DOS  is  to 
perform  disk  operations,  it  seems 
logical  that  you  can't  save  a  BASIC 
program  if  DOS  isn't  present.  But 
"Atari  NoDOS"  can  perform  this 
seemingly  impossible  task. 

Using  Atari  NoDOS 

Atari  NoDOS  consists  of  three 
short  sections:  one  that  formats  a 
disk  without  DOS,  one  that  saves  a 
program  without  DOS,  and  a  third 
that  reloads  a  program  saved  in 
NoDOS  format.  Type  in  the  entire 


program  and  save  it  to  disk.  If  you 
have  a  cassette  drive,  you  may  want 
to  LIST  the  program  to  tape,  as 
well.  (If  you  have  a  cassette  drive, 
you  can  always  try  to  CSAVE  a 
program  when  DOS  is  absent.  How- 
ever, Atari  cassette  drives  are  much 
less  reliable  than  disk  drives,  and 
using  NoDOS  is  also  much  faster 
than  saving  to  cassette.) 

Of  course,  if  you're  in  a  situa- 
tion where  you  need  Atari  NoDOS, 
you  won't  be  able  to  ENTER  the 
program  from  disk.  At  this  point, 
you  can  either  ENTER  it  from  cas- 
sette, if  you  have  a  cassette  drive,  or 
simply  type  the  program  from  the 
magazine  listing.  The  program  is  so 
short  that  it  can  be  typed  in  only  a 
few  minutes. 

If  you  wish  to  save  the  pro- 
gram to  an  already-formatted  disk, 
you  need  only  type  lines  32760- 
32767  of  Atari  NoDOS.  If  you  need 
to  format  a  new  disk  before  per- 
forming the  save,  you  must  type  the 
formatting  section  of  the  program 
(lines  32755-32757)  as  well  as  the 
saving  section  (32760-32767).  Of 
course,  if  you  ENTER  the  program 
from  cassette,  all  of  the  lines  are 
present. 

To  save  a  program  on  an 
already-formatted  disk,  type 
GOTO  32760  and  press  RETURN. 
To  format  a  disk  and  then  save  the 
program,  type  GOTO  32755  and 
press  RETURN;  the  formatting  rou- 
tine jumps  to  the  saving  routine 
after  the  disk  is  formatted. 
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The  saving  routine  prompts 
you  to  enter  a  single-density  disk  in 
drive  1  and  press  RETURN  when 
you  are  ready.  The  disk  should 
have  enough  room  to  store  the  pro- 
gram, but  it  need  not  be  completely 
empty.  Atari  NoDOS  doesn't  save 
the  program  in  the  usual  manner. 
Instead,  it  writes  the  program  on 
disk  beginning  with  sector  719  and 
proceeding  to  lower-numbered  sec- 
tors. As  you  may  know,  single- 
density  Atari  disks  contain  720 
sectors,  and  program  storage  nor- 
mally begins  with  lower-numbered 
sectors  and  works  upward.  By  writ- 
ing to  the  highest  sectors  on  the 
disk,  NoDOS  minimizes  the  Hkeli- 
hood  of  overwriting  information  al- 
ready on  the  disk.  However,  it  does 
not  check  to  see  whether  a  given 
sector  already  contains  infor- 
mation, so  you  should  not  attempt 
to  use  this  program  with  a  disk  that 
is  almost  full. 

The  screen  blanks  out  while 
Atari  NoDOS  saves  the  program. 
This  is  done  to  gain  a  little  extra 
speed.  Just  as  in  a  normal  disk  save, 
you  will  see  the  drive's  busy  light 
come  on.  When  the  screen  is  re- 
stored, the  program  displays  a  sta- 
tus number  to  indicate  the  success 
of  the  operation.  If  this  number  is 
anything  other  than  1,  an  error 
occurred;  your  disk  drive  manual 
explains  the  meaning  of  the  error 
number. 

If  the  save  was  successful,  you 
should  turn  off  the  computer,  insert 
a  disk  containing  DOS,  and  turn  the 
computer  back  on.  Don't  expect  to 
see  the  program  saved  using  No- 
DOS in  the  disk  directory.  It  has 
been  saved  in  a  different  format 
which  doesn't  appear  in  the 
directory. 

To  convert  the  program  to  nor- 
mal form,  you  must  now  load  the 
reloader  section  of  Atari  NoDOS, 
Again,  if  you  saved  the  entire  pro- 
gram to  disk,  simply  reload  it.  Since 
the  reloader  is  the  first  section  of 
Atari  NoDOS,  you  can  start  it  by 
typing  either  RUN  or  GOTO  32740. 
When  the  program  prompts  you  to 
do  so,  insert  the  disk  on  which  you 
saved  the  program  without  DOS; 
then  hit  RETURN.  Each  line  is  dis- 
played on  the  screen  as  it  is  entered 
into  memory.  If  you  wish  to  abort 
the  process,  simply  press  a  key. 
When  the  process  is  complete,  you 


should  immediately  save  the  pro- 
gram in  the  usual  way. 

This  program  can  be  modified 
to  work  with  double-density  disks, 
as  well.  Change  the  first  two 
POKES  in  line  32767  to  POKE  776,0 
and  POKE  777,1.  You  may  or  may 
not  have  to  change  the  same 
POKEs  In  the  reloading  routine,  de- 
pending on  your  drive. 

If  you  get  consistent  errors 
when  using  the  saving  routine,  your 
drive  may  be  misaligned — a  prob- 
lem which  requires  a  professional 
cure.  However,  you  may  be  able  to 
save  the  program  by  changing  Atari 
NoDOS  to  write  to  the  lowest  sec- 
tors on  the  disk  rather  than  the  high- 
est. The  lower  sectors  are  much 
easier  to  read,  even  for  a  misaligned 
drive.  Note  that  this  method  can  be 
used  only  with  a  completely  blank 
disk,  since  it  is  certain  to  destroy  at 
least  the  first  tile  on  the  disk.  To 
make  this  modification,  change  the 
statement  SEC  =  719  to  SEC=1  in 
lines  32761  and  32742.  You  must 
also  change  the  statement  SEC  = 
SEC-1  to  SEC  =  SEC +  1  in  lines 
32767  and  32752.  These  changes 
cause  the  program  to  begin  at  sector 
1  and  use  higher-numbered  sectors 
as  the  save  proceeds. 

Atari  NoDOS 

For  instructions  on  entering  this  program, 
please  refer  to  "COMPUTE! 's  Guide  to  Typing 
In  Progronns"  elsewhere  in  thisjssue. 

K?  0     REM  C0PYRI8HT  1987  COMP 

UTE!  PUBLICATIOKfS,   INC. 

ALL  RIBHTB  RESERVED 

HC  1  PRINT  CHR*(  125)  ;  "COPYRI 

BHT  19a7":PRINT  "COMPUT 

Bl     PUBLICATIONS,   INC," 

DL  2  PRINT  "ALL  RIGHTS  RESER 

VED.  " 
BF  3  FOR  X=l  TO  1000:NEXT  X 

IP  32739  REM 

HB  32740  REM  Mi:m>T.->^  Saves  a 
BASIC  program  from 
memory  to  disk  wit 
hout  any  DOS  presen 
t.    10: 24AM/7-18-e6 
ND32741  GRAPHICS  0:CLR  :DIM 
A*(n:?  :?  "MIMiIia 
fiOI3atiESaffl"  :  ?  "Inse 
rt  disk  in  dri  ve  1 
'■  ;  :  TRAP  32740 
AD32742  INPUT  A»  :  BUF=  1  536  :  S 
EC=7l9s I=i2B3POKE  8 
2,0:POKE  83,39 
eC32743  POKE  942,i2:L  =  0:?  " 
<:CLEAR>  iTAB>HIT  ANY 
KEY  TO  ABORTCDDWN> 
" SPOKE  766, 1 
FN  32744  GOSUB  32749:?  CHR*  ( 
D) ; : L-L+1: IF  0=155 
THEN  32747 
JJC  32745  IF  PEEK  (764)  0255  T 
HEN  POKE  82, 2: POKE 
766,0:POKE  764,255: 
END 


EH  32746 
Of  32747 

HC  32748 


SK  32749 
HI  32750 
JB  32751 


NJC  32752 


IH  32754 
Nn  32755 


ED  32756 
BE  32757 


JB  32759 
nS  32760 


CN  32761 


HO  32762 


EH  32763 


BP  32764 


AP  32765 


PJ  32766 


hE  32767 


rive  #1 , " : ?  "Ent 
' Y '  when  ready  " 
LR  :DrM  A»(l)  :  IN 

A* 
A»<>"Y"  THEN  327 

E  768,49: POKE  76 
POKE  770,33:POK 

71,0: POKE  774,25 
USR(ADR("hLYtr") 


GOTO  32744 
POKE  766,0 
HEN  POKE  8 
7  "CDOWN>Q 
OKE  842, 13 

0, 0: STOP 
IF  I-12S  T 

32751 
D-PEEKCBUF 
! RETURN 
POKE  768.4 
9, Is  POKE  7 
E  771,64:P 
3C(CHR*(BU 
773, INT  <BU 
KE  776, 128 
POKE  777,0 
, ASC(CHR»{ 
E  779, INT t 
D*USR  CADR ( 
SEC-SEC-1: 
N 

REM 

?  : 
B  d 
er 

PUT 
IF 
60 
POK 
9,1 
E  7 
5:0 
) 

REM 

?  : 

Hi 

t  " 

5>, 
;TR 
IsP 
POK 
B«) 
N  # 

75 
=  PE 
(13 
?  " 
(AJ 
1ST 
INP 
A«) 
B«  ( 
is  A 
L<3 
THE 
IF 

32 
=  B« 
B«  ( 
i  )  = 
EN 
B«  ( 
HR« 
(I> 
E  8 

PEE 
POK 

*?,  I 
E  7 
A3C 
77 
POK 
77, 
HR* 
INT 
ADR 
C-1 


! IF  L-1  T 
2, 2s  END 
. 32743" sP 
: POSITION 

HEN  eOSUB 

+ 1  >  ;  1 » I  +  1 

9: POKE  76 
70,82:POK 
OKE  772, A 
F) ) sPOKE 
F/256) : PO 

:POKE  778 
SEC) ) :POK 
SEC/256) : 
"hLYET")  )  : 
1-0: RETUR 


t  RETURN  to  star 
; :CLR  :DIM  B* (25 
A* ( 127) ; INPUT  A» 
AP  40000: CLOSE  # 
OKE  82,0 
E  83,39: BUF=ADR ( 
:  I  =  1:SEC  =  719;0PE 
1  ,  13,0,  "E: ": POKE 
2,  1  :POKE  559,0: A 
EK ( 136)+256tPEEK 
7) 

CCLEAR> "; sL=PEEK 
+256»PEEK (A+l) :L 

LsPOSITION  0, Is 
UT  #1 , A*: A$(LEN( 
+  1)=CHR*  (155) 
I  )=A*:  I-LEN<B*)  + 

A+PEEK(A+2) : IF 
2739  AND  I<=128 
N  32762 

I>128  THEN  QOSUB 
766:B«  < I)  =  "#":B* 
(  129)  :  I«LEN  CB«)  s 
I  ) =" " :  IF  PEEK (77 
1  AND  L<32739  TH 
32762 

129) ="#':B* (I ) =C 
(155) :B$ {I+l>=Bt 
: GOSUB  32766: POK 
2,2:GRAPHICS  0s? 
BELL>STATUS  -  "; 
K(771) SEND 
E  76B,49:PaKE  76 

POKE  770,87:POK 
71,  12e!P0KE  772, 
(CHR*(BUF) ) iPQKE 
3, INT(BUF/256) 
E  776, 128:P0KE  7 
0:POKE  778,ASC(C 
(SEC) ) sPOKE  779, 
(SEC/256) :0=USR( 
ChLYET")  )  :SEC  =  SE 
: RETURN  ^ 

8 
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Fast  Fractal 
Landscapes  For  IBM 


It  doesn't  take  an  expensive  main- 
frame computer  to  create  realistic- 
looking  fractal  landscapes.  Using  the 
program  included  in  this  article,  you 
can  create  your  own  landscapes  on 
any  IBM  PC  or  compatible  computer 
with  a  color  graphics  adapter. 


Some  recent  magazine  articles 
about  fractals  have  included  pic- 
tures of  computer-generated  land- 
scapes so  realistic  that  they  appear 
to  be  photographs  of  nature  itself. 
Although  ''Fast  Fractal  Land- 
scapes" doesn't  produce  displays 
that  resemble  photographs,  it  does 
create  realistic  landscapes  in  the 
sense  that  all  of  the  scenes  resemble 
nature.  And  best  of  all — it  creates 
them  in  about  half  a  minute. 

To  get  started,  type  in  and  save 
the  program  listed  on  the  following 
page.  Before  you  run  the  program, 
make  sure  you  have  a  disk  in  the 
active  drive  with  at  least  20,000 
bytes  free.  Now  run  the  program. 
The  program  will  create  a  file  on  the 
disk  called  FRACLAND.COM.  To 
run  FRACLAND.COM,  first  type 
SYSTEM  to  get  out  of  BASIC.  At 
the  DOS  prompt,  type  FRACLAND 
and  press  Enter.  You'll  get  a  mes- 
sage that  elevations  are  being  com- 
puted. The  plot  will  begin  a  few 
seconds  later.  When  a  plot  is  com- 
plete, press  any  key  except  the  Q 
key  to  start  another  plot.  Pressing 
the  Q  key  exits  the  program. 

The  program  creates  the  dis- 
plays so  fast  that  you  might  think 
that  all  the  landscapes  are  stored 
within  the  program.  The  truth  is. 


Paul  W.  Carlson 


however,  that  the  program  is  creat- 
ing them  randomly.  The  program 
uses  what  might  be  described  as 
"controlled  randomness"  to  create 
over  30,000  different  landscapes.  If 
you  don't  get  a  landscape  that  you 
like  when  you  first  run  the  pro- 
gram, keep  trying — you'll  soon  get 
one  that  you  like. 

Some  of  the  plots  may  be  al- 
most all  land  and  others  may  be 
almost  all  water.  In  fact,  it's  possible 
that  some  might  be  all  water.  Over- 
all, the  amount  of  land  and  water 
should  be  close  to  equal.  The  plots 
have  the  vertical  scale  exaggerated 
to  keep  some  separation  between 
the  lines  that  form  the  land.  This, 
along  with  the  colors  used,  produces 
landscapes  that  look  like  rugged  ter- 
rain in  winter  at  sunset. 

How  It  Works 

The  program  employs  a  technique 
that  is  often  used  when  dealing 
with  fractals:  repeatedly  subjecting 
an  object  (which  can  be  a  line, 
shape,  or  almost  anything)  to  a  se- 
ries of  operations  at  an  ever- 
decreasing  scale.  In  the  language  of 
fractals,  the  initial  object  is  called 
the  initiator  and  the  series  of  opera- 
tions is  called  the  generator. 

The  initiator  in  this  program  is 
a  square  representing  a  flat  area  of 
land  initially  at  sea  level,  or  zero 
elevation.  Here  is  a  description  of 
the  operations  performed  on  this 
square  and  on  all  subsequent 
squares: 

1.  A  new  elevation  is  comput- 
ed for  the  midpoint  of  each  side  of 
the  square  by  averaging  the  eleva- 


tions of  the  comers  on  either  side  of 
the  midpoint. 

2.  Each  new  midpoint  eleva- 
tion is  increased  or  decreased  by  a 
random  amount.  The  random 
amount  is  computed  so  that  its 
maximum  absolute  value  is  propor- 
tional to  the  length  of  the  side  con- 
taining the  midpoint.  This  keeps 
the  height  of  the  landforms  in  natu- 
ral proportion  to  their  breadth. 

3.  The  elevation  of  the  point  at 

the  center  of  the  square  is  comput- 
ed in  the  same  manner  using  the 
elevations  of  a  pair  of  diagonally 
opposite  comers,  the  pair  used  be- 
ing chosen  randomly. 

4.  The  square  is  subdivided 
into  four  squares,  the  midpoints 
and  center  of  the  old  square  becom- 
ing comers  of  the  new  squares. 

5.  The  process  is  then  repeated 
for  each  of  the  new  squares.  Only 
when  all  the  squares  at  any  level  of 
subdivision  have  been  processed 
does  the  computation  move  on  to 
the  next  level.  When  the  desired 
level  of  subdivision  has  been  ac- 
complished, the  process  stops.  The 
process  of  subdivision  is  illustrated 
in  the  accompanying  figure. 

If  the  elevations  were  to  be 
plotted  without  further  processing, 
the  resultant  landscape  would  re- 
semble a  scene  on  the  moon  with 
very  jagged  mountain  peaks.  To 
make  the  landscape  more  earthlike, 
the  elevations  are  smoothed  by  av- 
eraging each  elevation  with  the  ad- 
jacent east  and  west  elevations 
(north  being  the  top  of  the  screen). 
This  gives  the  landscapes  a  more 
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Landscape  Subdivision 


rounded,  eroded  appearance. 

The  display  is  created  by  plot- 
ting cross  sections  from  west  to  east 
beginning  with  the  southernmost 
cross  section.  Each  cross  section  is 
plotted  by  connecting  the  north 
sides  of  adjacent  squares  end  to  end 
and  removing  hidden  Lines.  Before 
a  line  segment  on  a  cross  section  is 
plotted,  the  program  checks  if  the 
segment  is  going  into  or  coming  out 
of  the  water.  If  it  is,  the  segment  is 
adjusted  to  end  at  the  water  level 
(elevation  zero).  Any  negative  ele- 
vations are  set  to  elevation  zero. 
Segments  with  both  endpoints  at 
elevation  zero  are  plotted  as  water. 
The  elevations  at  the  south  edge  of 
the  plot  are  kept  at  sea  level  to  keep 
the  first  cross  section  from  slicing 
through  any  mountains. 

Fast  Fractal  Landscapes 

For  instmctions  on  entering  this  program, 
plea&e  reter  to  "COMPUTERS  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue 


£5  1 


'  Program  to  create  FRACLAN 
D.COM 


NC  3  *  Copyright  1987  Compute!  P 

ublications,  Inc. 
DL  4  '  All  Rights  Reserved 
HP  5  CLSrPRINT  "Copyright  1987  C 
ompute!  Publications,  Inc." 
FN  6  PRINT"Ail  Rights  Reserved" 
DO  10  OPEN  "FRACLAND.COM"  FOR  OU 

TPUT  AS  1 
NA  20  PR I NT: PR I NT "CREATING  FRACL 

AND.COM  FILE,  PLEASE  WAIT. 

5 

Jn   30   PRINT#l,CHR«(SfHE9>  ;CHR$(8(H 

CAJ  ;CHR*(5<H44)  ; 
m   40    FOR    N=l    TO    17577:PRINTtH,C 

HR*(0) ;:NEXT 
AD  50    T=0:FOR    J=i    TO    2049: READ    A 

*:N=VAL("&H"+A*) 
fP   60    T=T+N:PRINT#1,CHR*(N) ; :NEX 

T: CLOSE  1: PRINT 
HH  70  IF  T^202520!  THEN  PRINT"FR 
ACLAND.CQM  SUCCESSFULLY  CR 
EATEDl ":END 
LP  80  PRINT  CHR*C7> ; "»t***  ERROR 
IN  DATA  STATEMENTS  tt*$t" 
:END 
Ofi  90  DATA  00,00,00,00,00,00,00, 

00,00,43 
PF  100  DATA  6F,6D,70,75,74,69,6E 

,67,20,65 
M0  110  DATA  6C,65,76,61,74,69,6F 

,6E,73,2E 
HJ  120  DATA  2E,2E,24,E8,87,07,A1 

,28,01, A3 
KF  130  DATA  2D, 01 , C7, 06, 2F, 01 , 00 

,00,E8,54 
HI  140  DATA  07,88,02, 00, 50, Ea, 41 

,07,83,04 
NS  150  DATA  02,80, 16,85,45, B4, 09 

,CD,21,C7 
FO  160  DATA  06,27,01,00,00,88, IE 

,27,01,01 
aP  170  DATA  £3,07,87,31, 01,08,00 

,FF,06,27 
GD  180  DATA  01 , 81 , 3E»27» 01 , 40, 01 
,7C,E8,C7 
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H6  190  DATA  06,  0F,  01 ,  40,  00,  C7,  06 

,09,01,00 
NC  200  DATA  00, Al , 0F,01 , A3, 0D, 01 

,E9,06,02 
LK  210  DATA  C7,  06,  07,  01 ,  00,  00,  Al 

,09,01,03 
DO  220  DATA  06,  0D,  01 ,  Dl,  F8,  A3,  13 

,0i»Al,0F 
EK  230  DATA  01 , A3, 0B, 01 , E9, DB, 01 

,A1,07,01 
PH  240  DATA  03, 06,08,01, D1,F8, A3 

,11,01,88 
CP  250  DATA  S2,00,F7,2E,09,01,BB 

,F0,FF,36 
UN  260  DATA  0F, 01 , ES, 80, 06, 83, C4 

,02, 80, IE 
HJ  270  DATA  07,01, D1,E3, SB, C8,8B 

,80,B1,03 
CB  280  DATA  SB,  IE,  0B,  01 ,  Dl ,  E3,  03 

,B0,B1,03 
H6  290  DATA  99,  2B,  C2,  Dl ,  F8,  03,  CI 

,88, IE,  11 
BE  300  DATA  01, Dl , E3,89,S0, Bl ,03 

,B8,S2,00 
ID  310  DATA  F7,2E,0D,01,8B,F0,FF 

,36,0F,01 
PH  320  DATA  ES, 46,06,83,C4, 02,8B 

, IE, 07, 01 
DE  330  DATA  Dl , E3, BB, C8, SB, 80, Bl 

,03, SB, IE 
PQ  340  DATA  0B, 01 , Dl, E3,03, 80,B1 

,03,99,28 
BD  350  DATA  C2,  Dl  ,FS,  03,C1,  SB,  IE 

,il,01,Dl 
PD  360  DATA  E3, 89, 80, Bl , 03, 83, 3E 

,07,01,00 
PE  370  DATA  74, 44, 8B, 36, 07, 01 , Dl 

,E6,FF,36 
H6  380  DATA  0F,01,E8, 0S,06,83,C4 

,02,88,C8 
m   390  DATA  Ba,82,00,F7,2E,0D,01 

,8B,D8,BS 
BD  400  DATA  82, 00, F7, 2E, 09, 01 , SB 

,B8,B1,03 
NA  410  DATA  BB, DS,8B, 80, Bl ,03,03 

,C7,99,2B 
PF  420  DATA  C2, Dl , F8, 03, CI , 8B, C8 

,88,82,00 
flA  430  DATA  F7, 2E, 13, 01 , SB, D8, 89 

,SS,B1,03 
J£  440  DATA  8B,36, 0B,01 ,D1,E6,FF 

,36,0F,01 
PH  450  DATA  ES, C4, 05, 83, C4, 02, SB 

,C8,BS,82 
AC  460  DATA  00,F7, 2E,0D,01,8B, D8 

,BS,S2,00 
CF  470  DATA  F7, 2E, 09, 01 , SB, B8, Bl 

,03,BB,Da 
El  480  DATA  SB, 80, Bl , 03, 03, C7, 99 

,2B,C2,D1 
K   490  DATA  F8, 03, CI, 8B,CS, B8, 82 

,00,F7,2E 
Fl  500  DATA  13,01, 88,08,89,88, Bl 

,03,E8,B1 
ID  510  DATA  05, AS, 01, 74, 60, FF, 36 

,0F,01,E8 
JP  520  DATA  7F,05,83,C4,02,8B,C8 

,D1,E0,03 
JL  530  DATA  CI , SB, IE, 0B, 01 , Dl , E3 

,  biD,  L^o,  oa 
HA  540  DATA  82, 00,F7,2E,0D, 01, SB 

,Fa,8B,Bl 
NH  550  DATA  Bl,03, 8B, 1E,07, 01, Dl 

,E3,8B,D0 
FA  560  DATA  B8, 82, 00,8B,FA,F7,2E 

,09,01,89 
Bfl  570  DATA  7E,FE, 8B,F8, SB,S1 ,B1 

,03,03,46 
FJ  530  DATft  FE,03,C1,99,2B,C2,D1 

,FS,8B, IE 
LN  590  DATA  1 1 , 01 , Dl , E3, 8B, CS, BS 


,82,00,F7 
Pe  600  DATA  2E, 13,01,SB,FS,S9,a9 

,B1,03,EB 
KB  610  DATA  5A,  FF,  36,  0F,  01 ,  E8,  IF 

,05,83,C4 
Bn  620  DATA  02,  SB,  CS,  Dl  ,  E0,  03,  CI 

,BB, 1E,0B 
&J  630  DATA  01,D1,E3,8B,C8,B8,B2 

,00,F7,2E 
DF  640  DATA  09, 01 , SB, F0, SB, 80, Bl 

,03, SB, IE 
KD  650  DATA  07, 01 , Dl , E3, SB, D0, BS 

,82,00,88 
KF  660  DATA  F2,  F7,  2E,  00,  01 ,  SB,  FS 

,8B,81,B1 
ni   670  DATA  03,03,C6,03,C1,99,2B 

,C2,Dl,F8 
PD  680  DATA  SB, IE, 1 1 , 01 , Dl , E3, SB 

,C8,BB,82 
JF  690  DATA  00, F7, 2E, 13, 01 , 8B, F0 

,89,88,81 
FA   700    DATA    03,  Al ,  0F,  01 ,  01 ,  06,  07 

,01,01,06 
flE   710    DATA    0B, 01, 83, 3E, 08,01,40 

,7F,03,E9 
FO  720  DATA  IB, FE, Al , 0F, 01 , 01 , 06 

,09,01,01 
K   730  DATA  06, 0D, 01, 83, 3E,0D,01 

,40,7F,03 
AC  740  DATA  E9, EB, FD, Dl , 3E, 0F, 01 

,83,3E,0F 
6H  750  DATA  01 , 02, 7C, 03, E9, CE, FD 

,C7,06, 15 
IB  760  DATA  01 ,  00,  00,  C7,  06,  17,01 

,01,00,BS 
NH  770  DATA  82,  00,  F7,  2E,  17,  01 ,  SB 

,F0,A1,15 
IL  780  DATA  01 , Dl , E0, 03, F0, SB, 84 

,2F,03,03 
81  790  DATA  84,33,04,03,84,61,03 

,99,B9,03 
IF  800  DATA  00, F7, F9, 89, 84, Bl , 03 

,FF,06,17 
DO  810  DATA  01 , 83, 3E, 17, 01 , 40, 7C 

,CF,FF,06 
AB  820  DATA  15,01 ,83, 3E, 15, 01,40 

,7E,BE,E8 
HA  830  DATA  Al, 04,B8, 04,00, 50, ES 

,SE,04,83 
DB  840  DATA  C4,  02,  C7,  06,  05, 01 ,  00 

,00,B9,03 
NP  850  DATA  00,89, 0E,03, 01 ,B8,C7 

,00,50,28 
NH  860  DATA  C0,50, B8,01, 00, 50,2B 

,C0,50,E8 
KI  870  DATA  15, 03, S3, C4, 08, BS, C7 

,00,50,88 
eP  880  DATA  3C,01,50,Ba,01,00,50 

,B8,3C,01 
FK  890  DATA  50, ES, FF, 02, 83, C4, 08 

,88,01,00 
OH  900  DATA  50, BS, 3C, 01,50,88,01 

,00,50,28 
C£  910  DATA  C0,50,E8,EA,02,S3,C4 

,0a,B8,C7 
BD  920  DATA  00,50, B8,3C, 01, 50,88 

,C7,00,50 
LB  930  DATA  2B, C0, 50,E8, D5,02,83 

,C4,08,C7 
FC  940  DATA  06,  27,  01 ,  00,  00,  SB,  IE 

,27,01,D1 
AD  950  DATA  E3, C7, 87, 31 , 01 , CS, 00 

,FF,06,27 
6H  960  DATA  01, 81, 3E, 27, 01, 40,01 

,7G,ES,C7 
BH  970  DATA  06, 15, 01, 00, 00,83, 3E 

,15,01,40 
KK  980  DATA  7E,03,E9,5E,02, C7, 06 

,05,01,00 
KC  990  DATA  00,  C7, 06, 27, 01, 00,  00 

,83,3E,27 


OH 

1000 

EN 

1010 

?n 

1020 

DJ 

1030 

OP 

1040 

KE 

1050 

BO 

1060 

OP 

1070 

A6 

1080 

JL 

1090 

Kt 

1100 

SI 

1110 

CN 

1120 

KA 

1130 

OH 

1140 

FL 

1150 

OP 

1160 

Crt 

1170 

OJ 

1180 

PF 

1190 

U 

1200 

HB 

1210 

IK 

1220 

fIF 

1230 

iH 

1240 

FH 

1250 

S.*! 

1260 

NC 

1270 

AE 

1280 

E! 

1290 

IC 

1300 

Si) 

1310 

OB 

1320 

HJ 

1330 

QJ 

1340 

PD 

1350 

Crt 

1360 

ED 

1370 

D£ 

1380 

PJ 

1390 

HF 

1400 

DATA  01,02,70, 1A,C7, 06, 2 

5,01,00,00 

DATA  C7, 06, 29,01, 01,00,8 

3,3E, 15,01 

DATA  40,75,0D,B3,3E,05,0 

1,00,74,06 

DATA  FF, 06, 15,01, EB,C3,C 

7,06, 17,01 

DATA  00,00,A1, 17,01,8B,C 

B,D1,E0,D1 

DATA  E0, 03, CI, A3, 21, 01,0 

B,C9,75,03 

DATA  E9, 10,01,83,F9,3F,7 

C,03,E9,0B 

DATA  01, 83, 3E, 15,01,40,7 

C,03,E9,FE 

DATA  00, S3, 3E, 05, 01, 00, 7 

5,03,E9,8A 

DATA  00,B8,S2,00,F7,E9,8 

B,F0,A1, 15 

DATA  01,D1,E0,03,F0,8B,B 

C, 31,03,03 

DATA  BC,2F,03,0B,FF,7E,2 

7,8B,84,B3 

DATA  03,03,84,81,03,89,4 

6,FE,0B,C0 

DATA  7D, 18,8B,C8,D1,E0,D 

1,E0,03,C1 

DATA  99, SB, SC, 83,03,03, 8 

C, 81,03,28 

DATA  CF,F7,D9,E9,AD,00,B 

8,82,00,F7 

DATA  2E, 17,01,SB,F0,A1, 1 

5,01,D1,E0 

DATA  03, F0, SB, 84, 35, 04,0 

3,84,33,04 

DATA  0B,C0,7F,03,E9,94,0 

0,8B,BC,83 

DATA  03,03,BC,B1,03,78,0 

3,E9,87,00 

DATA  8B,C7,8B,C8,D1,E0,D 

1,E0,03,C1 

DATA  99, SB, SC, 83, 03,28, 8 

C,35,04,2B 

DATA  8C,33,04,03,8C,B1,0 

3,EB,64,B8 

DATA  82, 00, F7,2E, 17,01,8 

B,F0,A1,15 

DATA  01,D1,E0,03,F0,83,B 

C,2F,03,00 

DATA  7E, IE, 83, BC, Bl , 03, 0 

0,7D, 17, 8B 

DATA  S4,B1,03,8B,CS,D1,E 

0,D1,E0,03 

DATA  C1,99,SB,8C,2F,03,2 

B,aC,Bl,03 

DATA  EB,2F,B8,82,00,F7,2 

E, 17,01,BB 

DATA  F0,A1,15,01,D1,E0,0 

3,F0,B3,BC 

DATA  33, 04, 00, 7E,  IE,  83,8 

C, 81, 03, 00 

DATA  70, 17, SB, 84, 81,03, 8 

B,CS,D1,E0 

DATA  D1,E0,03,C1,99,2B,S 

C,33,04,F7 

DATA  F9, 01, 06, 21, 01, S3, 3 

E, 05, 01, 00 

DATA  74, 31, SB, IE, 15,01, D 

1,E3,B8,S2 

DATA  00,F7,2E, 17,01,8B,F 

0,8B,B0,B1 

DATA  03,SB, IE, 15,01,D1,E 

3,8B,CB,BS 

DATA  82, 00, F7,2E, 17,01,8 

B,F0, 88,80 

DATA  B3,03,03,C1,99,2B,C 

2,D1,F8,EB 

DATA  13,88, IE, 15,01, D1,E 

3,88,82,00 

DATA  F7,2E, 17,0i,8B,F0,e 
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&,a0,Blf03 
FP    1410    DATA    A3,23,01,0B,C0,7D,0 

6, C7, 06,23 
Ofl    1420    DATA    01, 00, 00, S3, 3E, 23,0 

1,00, 75, 0C 
DH    1430    DATA    03,  3E,  25,  01 ,  00,  75,  0 

5,Ba,01,00 
DE    1440    DATA    EB,  03,  B8,  03,  00,  A3,  0 

3,01,A1,23 
PN  1450  DATA  01 , A3, 25, 01 , Al , 21, 0 

1, A3, ID, 01 
in    1460  DATA  Al, 15,01, D1,E0, 03,0 

6,05,01,03 
FJ  1470  DATA  06, 23, 01 ,40, A3, IF, 0 

l,e3,3E,29 
n    1460  DATA  01,00,74,15,68,01,0 

0, A3, ID, 01 
JJ  1490  DATA  A3, 19,01, Al, IF, 01, A 

3, 1B,01,C7 
FD  1500  DATA  06,29,01,00,00,83,3 

£,15,01,00 
LH  1510  DATA  75, 07, 83, 3E, 05, 01 , 0 

0,74, 16, FF 
flC  1520  DATA  36, IF, 01, FF, 36, ID, 0 

1,FF,36,1D 
m    1530  DATA  01,FF,36, 19,01,E8,7 

B,00,83,C4 
BD  1540  DATA  08, Al , ID, 01 , A3, 19, 0 

1,A1,1F,01 
KH  1550  DATA  A3,  IB,  01 ,  FF,  06,  17,  0 

1,83,3E,17 
JE  1560  DATA  01,40, 7D, 03, E9, F3,F 

D,83,3E,05 
JH  1570  DATA  01 ,  00,  75,  05,  BS,  01,0 

0,EB,02,2B 
KH  1580  DATA  C0,  A3,  05,  01 ,  FF,  06,  2 

7,01,E9,AE 
PL  1590  DATA  FD, C7, 06, 03, 01 , 02, 0 

0,C7,06,1B 
OF  1600  DATA  01, 81, 00, FF, 36, IB, 0 

1,B8,3B,01 
FN  1610  DATA  50, FF, 36, IB, 01 , B8, 0 

1, 00,50, E8 
HO  1620  DATA  27,00, B3,C4, 08,FF,0 

6, IB, 01,81 
ftD  1630  DATA  3E, IB, 01 , C7, 00, 7C, D 

E,E8,E0,01 
E6  1640  DATA  0B,  C0,  75,03,  E9,  IB,  F 

A,B8,02,00 
E8  1650  DATA  50, E8, 5F, 01,83, C4,0 

2,E8,65,01 
IS  1660  DATA  C3,  55,  SB,  EC,  83,  EC,  1 

2,57,56,BS 
LJ  1670  DATA  C7,00,2B,46,06,89, 4 

6,06,B8,C7 
riH  1680  DATA  00,  2B,  46,  0A,  89,  46,  0 

A, OB, 76,08 
SO  1690  DATA  2B, 76, 04, 59, 46,06,7 

D, 28, 89, 46 
IP  1700  DATA  F4,BB, 46, 06, 89,46,0 

A,BB,46,F4 
Ot  1710  DATA  89, 46, 06, SB, 46, 08, 8 

9,46,F4,8B 
PB  1720  DATA  46,04,89,46,08,86,4 

6,F4,89,46 
06  1730  DATA  04,  C7,  46,  F6,  FF,  FF,  E 

B,05,C7,46 
BP  1740  DATA  F6,  01 ,  00,  SB,  46,  06,  2 

B,46,0A,89 
DS  1750  DATA  46,  FC,  C7,  46,  F2,  FF,  F 

F,C7,46,FA 
IF  1760  DATA  00,  00,  3B,  C6,  7E,  10,  C 

7, 46, FA, 01 
JH  1770  DATA  00, 89, 76, F4, 8B, F0, 8 

B,46,F4,89 
CO  1780  DATA  46, FC, BB, 46, FC, Dl , E 

0,89, 46, EE 
U    1790  DATA  SB,46,FC,2B,C6,D1,E 

0,89, 46, FB 
01  1800  DATA  8B,46,EE,2B,C6,a9,4 

6,F0,46,EB 


DF  1810  DATA  6C,  8B,  7E,  04,  Dl,  E7,  8 

1,C7, 31,01 
SH  1820  DATA  SB, 05, 39, 46, 06, 7D, 1 

F,8B,46,06 
DD  1830  DATA  89, 05, 83, 3E, 03, 01 , 0 

3,75,07,83 
BL  1840  DATA  3E, 05, 01 , 00, 75, 0C, F 

F, 76,04, FF 
H    1850  DATA  76, 06, ES, Fl , 00, 83, C 

4, 04,83, 7E 
FH  1B60  DATA  FA, 00, 74, 08, SB, 46, F 

2,01,46,06 
6P  1870  DATA  EB,06, 8B,46, F6,01, 4 

6,04,B3,7E 
Dl  1880  DATA  F0, 00, 7D, 08, 8B, 46, E 

E,01,46,F0 
IE  1B90  DATA  EB, lA, 8B,46,F8, 01,4 

6,F0,83,7E 
HB  1900  DATA  FA, 00, 74,08, SB, 46, F 

6,01,46,04 
LQ  1910  DATA  EB, 06, 8B,46, F2, 01,4 

6,06,4E,0B 
BE  1920  DATA  F6, 75, 90,5E,5F,8B, E 

S,5D,C3,55 
CM  1930  DATA  BB, EC, 83,EC,02,E8, 1 

E,00,BB,4E 
D£  1940  DATA  04,49, 23,C8, 89,4E,F 

E,E8, 12,00 
FH  1950  DATA  3C, 7F, 73, 07,8B, 46,F 

E,F7,DB,EB 
BL  1960  DATA  03,80, 46, FE, SB, E5,5 

D,C3,B9,0B 
Oa  1970  DATA  00, Al , 2D, 01,33,D2, A 

9,02,00,74 
FO  1980  DATA  02, E2, 01 , A9, 04, 00, 7 

4,02,B6,01 
NK  1990  DATA  32,06^ D0,EA, Dl , D8,E 

2,E8,A3,2D 
KP  2000  DATA  01,A3,2F,01,C3,55,B 

B,EC,BB,46 
EO  2010  DATA  04, CD, 10,8B,E5,5D,C 

3,B4,0F,CD 
JD  2020  DATA  10, B7, 07, 3C, 03, 7E, 0 

6,3C,07,74 
U   2030  DATA  02,32,FF,B8,00,06,3 

3,C9,BA,4F 
11  2040  DATA  18, CD, 10,88,00,02,3 

3,D2,33,DB 
EJ  2050  DATA  CD,  10,C3,FB,  B4,00,C 

D,1A,89,16 
HI  2060  DATA  2B, 01, B9, 08,00, Al , 2 

B,01,33,D2 
OB  2070  DATA  A9, 02, 00,74,02,82,0 

1,A9,04,00 
Gft  2080  DATA  74, 02, B6, 01 , 32, 06, D 

0,EA,D1,D8 
FB  2090  DATA  E2, EB, A3, 2B,01,C3, S 

5,8B,EC,57 
EN  2100  DATA  56, Al , 03, 01 ,B4,0C,8 

B,4E, 06,88 
ED  2110  DATA  56,04, CD, 10,5E,5F,8 

B,E5,5D,C3 
OP  2120  DATA  B4, 07,CD, 21,3C,51 , 7 

4,07,3C,71 
BA  2130  DATA  74, 03, 33, C0,C3, BB, 0 
1,00, C3  0 


Atari 
XL/XE 
Super 
Editor 


Rhett  Anderson 

This  clever  utility  adds  a  variety  of 
new  features  that  improve  the  screen 
editor  on  Atari  XL  and  XE  computers. 
BASIC  memory  is  unaffected. 


Atari  eight-bit  computers  are 
equipped  with  an  exceptional  screen 
editor.  As  you  edit  your  BASIC  pro- 
grams, you  can  clear  the  screen,  in- 
sert characters  and  lines,  delete 
characters  and  lines,  and  move  the 
cursor  up,  down,  left,  and  right. 

When  Atari  engineers  devel- 
oped the  1200XL  computer,  they 
used  its  new  function  keys  to  add 
even  more  editing  features:  one- 
key  cursor  control,  cursor  home, 
cursor  to  the  bottom  right  comer, 
cursor  to  the  left  margin,  cursor  to 
the  right  margin,  and  a  quick  way 
to  turn  off  the  keyclick.  Unfortu- 
nately, when  the  function  keys 
were  omitted  in  the  newer  Atari 
computers— the  600XL,  800XL,  and 
the  XE  models — so  were  the  new 
features.  Fortunately,  the  code  for 
these  keys  remains  in  the  operating 
system,  ''Atari  XL/XE  Super  Edi- 
tor" resurrects  this  code,  adding 
new  editing  power  to  the  Atari 
600XL,  800XL,  65XE,  and  130XE. 
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Super  Editor  is  written  in  ma- 
chine language  but  is  listed  in  the 
form  of  a  BASIC  loader.  Since  the 
DATA  statements  include  machine 
language  and  key  definitions  which 
must  be  typed  accurately,  be  sure  to 
use  the  "Automatic  Proofreader" 
found  elsewhere  in  this  issue  to 
enter  the  program.  Be  sure  to  save  a 
copy  of  the  program  before  running 
it,  since  the  BASIC  part  of  the  pro- 
gram is  erased  from  memory  after  it 
is  run. 

Normal  And  Super  Modes 

After  you  have  saved  a  copy  of  the 
program  to  tape  or  disk,  type  RUN. 
In  a  few  seconds,  you  will  see  a 
message  indicating  that  Super  Edi- 
tor is  enabled.  At  this  point,  you 
have  no  new  editing  features.  Su- 
per Editor  has  two  modes  of  opera- 
tion: normal  and  super.  Whenever 
you  run  Super  Editor,  you'll  be  in 
the  normal  mode  of  operation, 
where  all  keystrokes  act  as  they 
normally  would.  Change  the  mode 
with  the  HELP  key,  which  acts  as  a 
toggle.  Press  it  once  to  enter  super 
mode,  and  again  to  return  to  nor- 
mal mode.  To  help  you  tell  the 
difference  between  the  two  modes, 
the  screen  color  is  changed  to  a 
darker  blue  in  super  mode.  Here  is 
a  list  of  the  new  key  assignments 
available  in  super  mode: 

CTRL-5  toggle  keyclick 

CTRL-6  cursor  home 

CTRL- 7  cursor  bottom  left 

CTRL- 8  cursor  to  left  margin 

CTRL-9  cursor  to  right  margin 

In  addition,  you  no  longer  need  to 
press  CTRL  to  cursor  up,  down,  left, 
or  right.  To  obtain  the  standard  as- 
signments of  these  keys  (  — ,  =,  +, 
and  *),  press  CTRL  and  the  appro- 
priate key. 

None  of  these  new  assignments 
are  available  in  normal  mode,  but 
normal  mode  does  retain  the  key- 
click  value  that  you  last  used  in 
super  mode.  If  you  turn  the  keyclick 
off  in  super  mode,  it  remains  off 
when  you  return  to  normal  mode. 

If  you  wish  to  disable  Super 
Editor  completely,  press  SYSTEM 
RESET.  Type  ?USR(1664)  or  DUM- 
MY =USR(  1664)  in  direct  or  pro- 
gram mode  to  reenable  it. 

Super  Editor  requires  the  top 
half  of  page  6  for  its  program  and 
the  bottom  three  quarters  of  page  1 
(the  stack)  for  the  Super  Editor  key- 


board table.  These  memory  areas 
are  not  used  by  BASIC,  but  some 
utilities  use  them.  A  conflict  could 
result  in  a  locked-up  computer,  so 
be  sure  to  test  Super  Editor  with 
any  other  utilities  that  you  may  use 
before  beginning  any  important 
work. 

Atari  XL/XE  Super  Editor 

For  instructions  on  entering  this  progfom. 
please  refer  to  "COMPUTE  I 's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 

LA  1  REM  COPYRIGHT  1987  COMP 

UTE!  PUBLICATIONS,   INC, 

t4  SPACESJALL  RIGHTS  RE 

SERVED 

16  2  PRINT  CHR*  (  125)  :PRINT  " 

COPYRIGHT  1987" 
AD  3  PRINT  "COMPUTE!  PUBLICA 

TIONS,  INC." 
flP 4  PRINT  "ALL  RIGHTS  RESER 

VED" 
SJ  5  FOR  X  =  l  TO  1200iNEXT  X 
KF10  FOR  MEMDRY^1664  TO  177 

4 
BH20  READ  MLiPOKE  MEMORY,  ML 
i CHECK=CHECK+ML:NEXT  M 
EMORY 
CF  30  IF  126230CHECK  THEN  P 
RINT  "ERROR  IN  TYPING 
DATA  STATEMENTS. "SEND 
HC  40  DUMMY  =  USR<1664>  :7  " 

<CLEAR>  Atari  XL/X£^^!TZ 

{5  SPACES>HELP  key  tog 
gifts  Supor  Editor. ":NE 
W 
Pfl010  DATA  104,162,0,189,8 

1 
HO  1020  DATA  251,157,0,1,232 

,224 
CJ  1030  DATA  192,208,245,162 

,  12,  189 
JJ  1040  DATA  209,6,168,189,2 

22,6 
E)(1050  DATA  153,0,1,202,16, 

243 
JH1060  DATA  162,6,160,166,1 

69,7 
JD1070  DATA  76,92,228,173,2 

20,2 
IJ  1080  DATA  201,17,208,32,1 

69,  0 
IH1090  DATA  141,220,2,173,2 

08,6 
FB1100  DATA  73,1,141,208,6, 

170 
PI  1110  DATA  189,235,6,133,1 

21 , 189 
in  1120  DATA  237,6,133,122,1 

69,  4 
6H1130  DATA  77,198,2,141,19 

8,2 
NE1140  DATA  76,98,228,1,6,7 
QI1150  DATA  14,15,134,135,1 

42, 143 
0Cil60  DATA  157,155,179,181 

, 176, 30 
CO  1170  DATA  31,28,29,43,42, 

45 
CE11S0  DATA  61,137,142,143, 

144, 145 
HL1190  DATA  0,81,1,251     * 


COMPUTE!  Disk 
Subscriptions 

COMPUTE!  Disks  are 
available  for  the 
following  computers: 

•  Apple  II  series 

•  Commodore  64  and  12S 

•  Atari  400/800  /XL/XE 

•  IBM  PC  and  PCjr 

Each  error-free  disk 
contains  all  the 
programs  from  the 
previous  three  Issues  of 
COMPUTE!.  With  a  disk 
subscription,  you'll 
receive  one  disk — for 
the  machine  you 
specify — every  three 
months.  To  subscribe, 
call  toll  free 
800-247-5470 
(In  Iowa  800-532-1272). 


Attention 
Programmers 

COMPUTE!  magazine  Is 
currently  looking  for 
quality  articles  on 
Commodore,  Atari, 
Apple,  and  IBM 
computers  (Including 
the  Commodore 
Amiga  and  Atari  ST).  If 
you  have  an  interesting 
home  application, 
educational  program, 
programming  utility,  or 
game,  submit  it  to 
COMPUTE!,  P.O.  Box 
5406,  Greensboro,  NC 
27403.  Or  write  for  a 
copy  of  our  "Writer's 
Guidelines." 
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This  convenient  utility  for  the  Com- 
modore 64  lets  you  resave  a  program 
without  fear  of  the  infamous  save- 
with-replace  bug. 


You  have  loaded  a  BASIC  program 
from  a  disk  and  have  decided  that  it 
needs  a  change  or  two.  After  edit- 
ing, it  must  be  saved  to  disk  again, 
with  a  different,  unique  filename. 
One  solution  is  to  use  a  new  name 
every  time  you  save  the  program, 
perhaps  using  numbers  to  keep  the 
versions  straight.  Under  this 
scheme,  you  might  have  programs 
named  SPRITE  1,  SPRITE2,  and  so 
on.  This  wastes  disk  space  and  also 
requires  that  you  remember  which 
number  to  use  next.  Later,  you  must 
scratch  all  the  old  versions  and  re- 
name the  most  recent  version  with 
the  final  name. 

Another  option  is  to  use  a 
save- wit  h-replace  command 
which,  unless  you  are  very  careful, 
may  damage  an  entire  disk.  To 
avoid  this  danger  completely,  you 
can  scratch  the  original  program 
before  saving  a  new  copy.  This  may 
be  time  consuming,  particularly  if 
you  are  the  careful  type  who  likes 
to  validate  the  disk  or  verify  the 
saved  program  afterward. 

"Resave"  is  a  short,  conven- 
ient utility  designed  to  simplify  the 
process  of  resaving  programs.  Type 
in  the  program  and  save  it.  To  in- 
stall Resave  in  memory,  simply 
load  the  program  and  run  it;  then 
type  NEW  and  press  RETURN. 
Now  load  the  program  you  wish  to 
edit. 


Resave 


Amy  Galtman 

When  you  are  ready  to  resave 
the  program,  type  SYS  49152  and 
press  RETURN  to  activate  Resave. 
You  will  be  prompted  for  a  file- 
name. Enter  the  name  of  the  pro- 
gram to  resave.  Do  not  include  a  0: 
before  the  filename,  since  this  utili- 
ty automatically  adds  the  drive  pre- 
fix to  the  name.  Resave  scratches 
the  original  copy  of  the  program, 
validates  the  disk  to  recover  unused 
disk  space,  saves  the  new  edition  of 
the  program,  and  verifies  the  save. 

Note  that  Resave  will  not  work 
with  machine  language  programs 
unless  they  are  designed  to  load 
and  run  like  BASIC  programs. 
Since  Resave  occupies  memory  be- 
ginning at  location  49152,  it  cannot 
be  used  with  any  other  program  or 
utility  that  uses  the  same  space. 

You  might  prefer  to  eliminate 
the  disk  validation  from  Resave, 
since  validation  can  take  a  long  time 
for  a  disk  that  contains  many  files. 
To  make  this  alteration,  change  the 
value  86  in  line  100  to  73. 

Resave 

For  instnjctions  on  entering  this  program, 
please  refer  to  "COMPUTE I's  Guide  to  Typing 
in  Programs"  elsewhere  in  tiits  issue. 


FC 
GF 


SH 
CA 


REM  * COPYRIGHT  1987* 
REM  *C0MPUTE1  PUBLICATION 
S,  INC.** 

REM  *ALL  RIGHTS  RESERVED* 
PRINT" tCLR} {12  SPACES} COP 
YRIGHT  1987": PRINT" 
{6  SPACES} COMPUTE  I  PUBLIC 
ATIONS,  INC." 
GS  5  PRINT" [9  SPACESlALL  RIGHT 

S  RESERVED" 
RP  6  FOR  X=1TO1500:NEXT 
QQ  10  FOR  T=49152  TO  49360 :REA 
D  S:POKET,S:NEXT: PRINT" 


{CLR} {DOWN) SYS  49152  TO 
{SPACElUTILIZE" 
CM  20  DATA76,55,192,70,73,76 
JE  30  DATA69,78,65,77,69,32 
BD  40  DATA40,60,61,49,54,32 
QG  50  DATA67,72,65,82,65,67 
AX  60  DATA84, 69,82,83,41,  63 
DJ  70  DATA32,0,32,32,32,32 
DH  80  DATA32,32,32,32,32,  32 
GG  90  DATA32, 32,32,32, 32, 32 
PK  100  DATA32, 32,32,0,86,48 
JM  110  DATA0, 169, 3,160, 192, 32 
GB  120  DATA30, 171,162,0, 32,207 
HH  130  DATA255, 201,13, 240, 7,15 

7 
SD  140  DATA36,192,232,76,64,19 

2 
FE  150  DATA232, 134, 2, 169,1,162 
MK  160  DATA8, 160, 15, 32,186, 255 
JH  170  DATA169, 83, 141,33,192,1 

69 
QF  180  DATA48, 141, 34, 192, 169,5 

8 
BQ  190  DATA141, 35, 192,166,2,23 

2 
XG  200  DATA232, 138,133,2, 162, 3 

3 
CK  210  DATA160,192,32,189,255, 

32 
HD  220  DATA192,255,32,195,255, 

169 
CB  230  DATA1,162,8,160,15,32 
KB  240  DATA186,255,169,2,162,5 

2 
CM  250  DATA160, 192, 32, 189,255, 

32 
HQ  260  DATA192,255,  32, 195,255, 

169 
DE  270  DATAl, 162,8,160,1, 32 
XX  280  DATA186,255, 166,2, 202,1 

38 
RB  290  DATA162,34,160,192,32,1 

89 
JQ  300  DATA255,169,43,166,45,1 

64 
RH  310  DATA46, 32, 216, 255,169,1 
DM  320  DATA162,8, 160,1, 32, 186 
MQ  330  DATA255,166, 2,202, 138,1 

62 
DS  340  DATA34, 160, 192,32,189,2 

55 
HP  350  DATA169, 1,32,213,255,16 

9 
EM  360  DATAl, 32, 195,255,96,0 
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Full-Screen  Editor 
For  Applesoft 


This  convenient  full -featured  editor 
makes  it  much  easier  to  edit  Applesoft 
BASIC  programs.  The  program  runs 
only  in  DOS  33. 


One  of  the  least  popular  features  of 
Applesoft  BASIC  is  its  primitive 
means  of  editing  a  program  line. 
"Full-Screen  Editor"  for  the  Apple 
11  series  gives  you  the  benefit  of  a 
full-screen  editor  within  Applesoft 
BASIC.  With  this  program,  you  can 
list  the  part  of  the  program  you 
wish  to  change,  move  the  cursor  to 
the  desired  spot,  change  the  line  as 
needed,  and  enter  the  new  line  in 
memory. 

This  program  works  on  any 
Apple  Il-series  computer  using 
DOS.  3.3.  Enter  the  program  with 
the  "MLX"  machine  language  entry 
program  printed  elsewhere  in  this 
issue.  When  you  run  MLX,  you'll  be 
asked  for  a  starting  address  and  an 
ending  address  for  the  data  you'll 
be  entering.  Here  are  the  values  to 
use  for  Full -Screen  Editor: 


STARTING  ADDRESS? 
ENDING  ADDRESS? 


8F00 
95FF 


Be  sure  to  save  a  copy  of  the 
program  before  trying  to  run  it.  You 
can  start  Full- Screen  Editor  with  a 
BRUN  command.  For  instance,  if 


Alex  Wong 

you  saved  the  program  with  the 
name  FSE,  type  BRUN  FSE  and 
press  Return  to  load  and  activate 
the  editing  features.  The  program 
lowers  HIMEM  to  protect  itself. 

Listing  The  Lines  To  Edit 

Once  the  editor  has  been  installed, 
you  can  load  the  BASIC  program 
you  wish  to  edit.  To  prepare  for 
editing,  type  a  slash  (/)  followed  by 
a  range  of  line  numbers  that  indi- 
cate which  lines  you  want  to  dis- 
play on  the  screen.  This  range  can 
have  the  following  forms: 

100  list  line  100 

100-  list  lines  from  100  to  the  end  of 

the  program,  or  until  the  Esc 

key  is  pressed 
100-200       list  lines  100  to  200 
-100  list  from  the  beginning  of  the 

program  to  line  100 

The  Full-Screen  Editor  dis- 
plays BASIC  lines  somewhat  differ- 
ently from  the  way  Applesoft 
BASIC  displays  them.  All  line  num- 
bers start  in  column  1  with  the  first 
statement  of  the  line  starting  in  col- 
umn 5.  Lines  too  long  to  fit  across 
one  screen  line  will  start  in  column 
2  of  the  next  line.  There  is  only  one 
space  between  keywords,  and  all 
control  characters  are  displayed  in 
inverse  mode.  The  bottom  of  the 
screen  wiU  show  CURSOR  MODE 


or  EDIT  MODE,  depending  on  the 
mode  you  are  currently  in. 

When  you  invoke  the  editor,  it 
always  clears  the  bottom  of  the 
screen  with  a  listing  of  the  lines  you 
specified.  While  lines  are  being  list- 
ed, the  space  bar  can  be  used  to 
pause  and  restart  the  listing.  If  you 
invoke  the  editor  without  specify- 
ing a  range  of  line  numbers,  it  sim- 
ply clears  the  bottom  of  the  screen. 

Cursor  Mode 

Once  you  have  listed  the  desired 
lines  on  the  screen,  the  Full-Screen 
Editor  goes  into  cursor  mode.  In 
this  mode  you  can  move  the  cursor 
anywhere  on  the  screen  or  enter 
edit  mode  to  change  a  line.  Use  the 
I,  J,  K,  M,  and  the  left  and  right 
arrow  keys  to  position  the  cursor  on 
the  spot  where  you  want  to  make  a 
change.  Once  you  have  the  cursor 
positioned  where  you  want  it,  press 
Control-E  (hold  down  Control  and 
press  E)  to  enter  edit  mode.  The  Esc 
key  exits  the  editor  and  returns  you 
to  BASIC. 

Edit  Mode 

Edit  mode  allows  you  to  change 
any  line  displayed  on  the  screen. 
Most  editing  commands  are  per- 
formed by  pressing  Control  togeth- 
er with  a  letter  key.  Following  is  a 
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list  of  the  editing  commands. 

90B8: 

C6 

25 

AO 

EE 

95 

C9 

A0 

F0 

31 

9360: 

A9 

20 

20 

72 

93 

20 

2C 

D7  OC 

Cursor  down 

90C0: 

IF 

20 

E6 

93 

A5 

25 

48 

20 

02 

9368: 

30 

05 

20 

72 

93 

00 

F6 

4C  2E 

Controi-j 

90C8S 

9B 

93 

A5 

25 

CS 

22 

F0 

02 

3E 

9370: 

72 

93 

48 

09 

80 

20 

EO 

FD  AD 

Control-K 

Cursor  up 

9000: 

C6 

25 

20 

CI 

93 

68 

20 

CI 

FE 

9378: 

2C 

FB 

95 

10 

00 

2C 

F9 

95  4A 

ieft  arrow 

Cursor  left 

90DB! 

FB 

A0 

01 

AD 

EE 

95 

91 

28 

34 

9380: 

10 

08 

AE 

FA 

95 

9A 

2C 

10  66 

right  arrow   Cursor  right 

90E0: 

4C 

9B 

93 

20 

CI 

FB 

A0 

00 

C2 

9388: 

C0 

60 

68 

60 

48 

A5 

25 

38  96 

Control-I 

Insert  a  blank  space 

under 

90Ee: 

Bl 

28 

C9 

A0 

F0 

0C 

AO 

EE 

32 

9390: 

69 

00 

C5 

23 

00 

03 

6E 

F9  C0 

the  cursor  and  move 

90F0; 

95 

C9 

A0 

F0 

EB 

A6 

25 

20 

D6 

9398: 

95 

68 

60 

08 

aE 

FF 

02 

BA  64 

following  characters 
Delete  the  character 
the  cursor  and  move 
following  characters 
Enter  the  line  into  m 
Exit  edit  mode,  retur 

rieht 

90F8: 

00 

94 

A0 

00 

AO 

EE 

95 

91 

39 

93A0t 

SE 

FE 

02 

AE 

ES 

93 

9A 

68  15 

Cotitrol-D 

und 

er 

9100: 

9108: 

28 

FB 

4C 
95 

93 

20 

90 
4F 

60 
92 

A6 
90 

25 
F5 

BE 
SE 

3C 
08 

93ABS 
93B0: 

85 
95 

25 
BA 

68 
BE 

85 
ES 

24 
93 

68 
AE 

SO 
FE 

F9  19 
02  08 

left 

9110* 

EC 

95 

36 

25 

20 

22 

FC 

A2 

58 

9388: 

9A 

20 

22 

FC 

AE 

FF 

02 

28  EA 

911B: 

00 

BE 

F0 

95 

Bl 

28 

C9 

A0 

B8 

93C0: 

60 

BE 

FF 

02 

BA 

BE 

FE 

02  EB 

Return 
Esc 

L 

emory 
ning  to 

9120: 
91281 

B0 
02 

02 
E8 

29 
C8 

3F 

C4 

29 
21 

7F 
90 

90 
ED 

00 
EE 

B7 
02 

93Ca: 
9300: 

AE 
AS 

ES 
24 

93 
48 

9A 
A5 

AD 
25 

F9 
48 

95 
BA 

48  AS 

BE  85 

cursor  mode 

9130: 

F0 

95 

E6 

25 

AS 

25 

CS 

23 

00 

93DB: 

ES 

93 

AE 

FE 

02 

9A 

AE 

FF  75 

You  can  press  Return 
where  on  a  line  to  enter  i 

any- 
t  into 

9138: 
9140: 
914S: 

00 
00 
F0 

02 
Bl 
95 

B0 
28 
C9 

18 

C9 
06 

20 
A0 
F0 

22 
D0 

03 

FC 

00 
C8 

A0 
AO 

00 

FF 
81 
08 

93E0: 

93Ea5 
93F0! 

02 
48 

8C 

4E 
2C 

EA 

F9 
EC 
95 

95 

95 

ac 

60 
30 
F9 

0F 
08 

95 

48 
A0 
20 

98  90 
00  19 

70  6B 

memory.  The  beginning  of  a 
marked  by  its  line  number, 
sure  that  all  line  numbers  be 

line  is 

9150: 

CB 

EE 

F0 

95 

2C 

EC 

95 

30 

FC 

93F8: 

FC 

20 

22 

FC 

68 

Aa 

68 

60  Dl 

so 
'gin 

be 
in 

9158: 

9160: 
9168: 

3E 
27 

as 

C6 
Bl 

10 

25 
28 

F6 

20 
C9 

Ea 

22 
A0 
CE 

FC 
D0 
F0 

CA 

10 
95 

A0 
CA 
C6 

2E 
58 
6D 

9400: 

9408: 
9410! 

A5 
E9 
85 

22 
01 
2A 

48 
48 
AS 

86 
20 
29 

22 
24 

as 

AS 
FC 
2B 

23 
A5 

A4 

38  IC 
2B  F9 
21  11 

the  first  column  of  the  screen. 

9170: 

25 

20 

22 

FC 

4C 

5F 

91 

SE 

03 

9418: 

88 

68 

C5 

22 

F0 

0F 

E9 

01  13 

9178: 

F5 

95 

20 

11 

92 

AO 

F0 

95 

03 

9420: 

48 

20 

24 

FC 

Bl 

28 

91 

2A  45 

Full-Screen  Editor 

9180! 

C9 

07 

D0 

14 

84 

24 

A2 

03 

A2 

9428: 

88 

10 

F9 

30 

El 

A5 

22 

20  ES 

Please  refer  to  the  "MIX"  article  eJsewtiere  in 
this  issue  before  entering  ttie  fallowing 

omnrom 

9188: 
9190: 
9198: 

20 
D0 
E6 

34 

05 
25 

95 
4E 

A5 

20 
EB 
25 

0C 
95 

C5 

FD 

10 
23 

C9 
11 

00 

80 
60 

08 

F6 
25 
E3 

9430: 
9438: 
9440: 

CI 
SB 
8F 

FB 
10 
A2 

A0 

FB 
2B 

27 
68 
G5 

A9 
85 
74 

A0 
22 
90 

91 

60 
06 

28  DA 
A9  CE 
00  5E 

fj\K/\j\\j\  i  1. 

91A0: 

C6 

25 

BE 

F5 

95 

20 

E6 

93 

30 

9443: 

08 

E4 

73 

B0 

04 

as 

74 

86  CD 

aF00: 

20 

2F  FB  20  AE  94  20 

58 

DC 

91A8: 

AE 

F5 

95 

BO 

00 

02 

C9 

00 

07 

9450: 

73 

60 

48 

20 

11 

92 

80 

EA  2F 

8F0a: 

FC 

A^  8F  A9  16  20    48 

95 

Bl 

91B0: 

F0 

01 

E8 

A9 

00 

90 

00 

02 

BC 

9458: 

95 

E6 

25 

AS 

25 

CS 

23 

00  SC 

eF10: 

20 

3F  94  4C  SC  95  06 

13 

40 

91B8: 

20 

BO 

94 

20 

CI 

93 

A2 

FF 

91 

9460: 

05 

C6 

25 

20 

E6 

93 

20 

22  4C 

8Fia: 

05 

20  16  31  2E  30  13 

20 

10 

91C0: 

A0 

01 

4C 

44 

04 

20 

IB 

92 

32 

9468: 

FC 

68 

60 

A0 

20 

ac 

FF 

02  75 

8F20: 

20 

01  17  05  20  31  39 

38 

33 

91 C8: 

4E 

EA 

95 

A5 

24 

D0 

10 

20 

7F 

9470; 

AD 

30 

C0 

CC 

FF 

02 

00 

03  0E 

eF28: 

36 

BD  00  20  IB  FD  C9 

ao 

B9 

9100: 

16 

92 

A5 

25 

C5 

22 

F0 

5C 

9F 

9478: 

AD 

30 

C0 

88 

D0 

FS 

CE 

FF  21 

aF30: 

D0 

15  48  E6  76  F0  06 

A9 

Ai 

91D8: 

C6 

25 

20 

22 

FC 

18 

60 

C6 

9E 

9480: 

02 

10 

ED 

60 

A5 

36 

80 

Fl  85 

eF3e: 

DD 

C5  33  00  07  A9  AF 

CD 

37 

91E0: 

24 

4E 

EF 

95 

IS 

60 

38 

6E 

22 

9488: 

95 

A5 

37 

80 

F2 

95 

AS 

3B  17 

OF  40: 

00 

02  F0  04  68  C6  76 

60 

E9 

9iEa: 

EF 

95 

20 

IB 

92 

E6 

24 

AS 

3D 

9490: 

80 

F3 

95 

AS 

39 

SD 

F4 

95  0A 

8F48: 

68 

9D  00  02  20  39  D5 

86 

3B 

91F0: 

24 

C5 

21 

90 

EC 

20 

11 

92 

61 

9498! 

60 

AO 

Fl 

95 

as 

36 

AD 

F2  48 

SF50: 

76 

86  Be  84  B9  A2  13 

9D 

C7 

91Fa: 

2C 

EC 

95 

30 

E4 

38 

6E 

FB 

01 

94A0: 

95 

85 

37 

AD 

F3 

95 

85 

38  F0 

8F58: 

E8 

95  CA  10  FA  85  24 

20 

02 
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RAMtest  128 


Jim  Butterfield,  Associate  Editor 


Have  you  ever  suspected  that  your 
Commodore  128  might  have  a  bad 
memory  chip?  This  program  can  pro- 
vide an  accurate  answer. 


The  128  has  a  lot  of  RAM  (Random 
Access  Memory).  Just  one  bad  byte 
could  make  your  programs  misbe- 
have. How  can  you  be  sure  that 
your  128's  memory  is  OK?  "RAM- 
test  128"  performs  a  thorough 
memor}''  test. 

Programmers  often  suspect 
hardware  problems  when  their 
newest  programs  fail  to  behave  cor- 
rectly. They  are  usually  wrong;  it's 
almost  always  a  programming  er- 
ror, not  a  problem  with  the  ma- 
chine. But  on  rare  occasions 
memory  does  fail,  and  it's  useful  to 
have  a  program  that  can  confirm  or 
deny  such  a  suspected  problem. 

Using  The  Program 

RAMtest  128  is  written  in  machine 
language  (ML).  The  program  can  be 
entered  using  the  ''MLX"  machine 
language  entry  utility  published 
regularly  in  COMPUTE!.  If  you  don't 
have  a  copy  of  128  MLX  (found  in 


the  April  issue),  you  can  use  the  64 
version  (in  64  mode)  of  MLX,  found 
elsewhere  in  this  issue.  MLX  will 
request  a  starting  address  and  an 
ending  address  for  the  data  you'll 
be  entering.  For  RAMtest  128,  use 
these  values: 


Starting  address: 
Ending  address: 


ICOl 
ICDl 


Be  sure  you  save  a  copy  of  the 
RAMtest  128  data  before  leaving 
MLX. 

You  can  also  bypass  MLX  and 
use  the  128's  built-in  ML  monitor  to 
enter  the  data.  (If  you're  using  the 
80-column  display,  you  should  first 
switch  to  the  40-column  screen,)  To 
enter  the  monitor,  type  MONITOR 
and  press  RETURN,  or  simply  press 
the  F8  function  key.  You  must  re- 
member several  things  when  enter- 
ing the  data  using  the  monitor: 
Precede  each  line  with  a  greater- 
than  (>)  symbol,  substitute  a  space 
for  the  colon  (:)  following  the  four- 
digit  address  value,  and  omit  the 
final  (rightmost)  two-digit  value  in 
each  line.  Each  line  you  enter 
should  consist  of  a  >  character,  a 
four-digit  address,  and  eight  two- 


digit  data  values.  After  you  have 
entered  and  checked  all  of  the  lines, 
save  the  program  with  a  command 
of  the  form: 

S  7i7e«ame",08,lC01,lCDO 

(For  tape,  substitute  01  for  08  in  the 
command  above.)  After  saving  the 
program,  type  X  and  press  RE- 
TURN to  exit  the  monitor  and  re- 
turn to  BASIC, 

When  you're  ready  to  conduct 
the  test,  load  the  RAMtest  128  pro- 
gram as  you  would  any  BASIC  pro- 
gram. Use  RUN  to  start  the  test. 
Every  20  seconds  the  program  re- 
ports OK  and  does  the  test  again.  If 
you're  using  the  80-column  dis- 
play, type  FAST  before  you  run  the 
program  to  double  its  speed.  Press 
the  reset  button  (near  the  power 
switch). to  stop  the  program. 

About  Memory  Tests 

It  seems  simple  to  devise  a  memory 
test.  Just  store  something  in  every 
memory  cell  you  can  conveniently 
reach,  and  then  read  it  back  to  in- 
sure that  the  data  was  stored  cor- 
rectly. But  that's  not  good  enough. 
A  good  test  should  check  for  correct 
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addressing,  as  well. 

Let's  outline  the  kind  of  prob- 
lem that  simple  tests  won't  catch. 
Whenever  you  do  something  that 
requires  access  to  a  memory  ad- 
dress, the  computer's  processor  sig- 
nals the  address  it  wants  to  use  by 
sending  it  over  the  address  bus — a 
group  of  16  wires  that  together  de- 
fine the  address.  Now  suppose 
there's  something  wrong  with  the 
address  bus  or  its  connections,  so 
that  a  memory  chip  doesn't  read  all 
the  wires  correctly.  The  chip  still 
sees  an  address,  but  it's  the  wrong 
one.  If  this  happens,  the  data  is 
stored  in  the  wrong  address.  Worse, 
when  the  processor  reads  the  data 
back  to  check  it,  it  reads  from  the 
same  wrong  address.  The  data 
seems  to  be  right,  but  it's  not. 

Here's  a  specific  example.  Sup- 
pose  that  you  try  to  store  data  to 
address  5000,  but  an  error  on  the 
address  bus  causes  the  address  to 
be  seen  as  4992.  (Hardware  hackers 
will  spot  this  as  an  error  in  line  3  of 
the  address  bus.)  The  processor 
stores  something  there,  thinking 
that  the  data  is  going  to  5000.  But  it 
really  goes  to  4992.  Now  the  pro- 
cessor tries  to  test  memory  by  re- 
calling the  contents  of  5000.  It 
sends  out  the  address  again.  The 
same  error  causes  the  address  to  be 
seen  as  4992,  and  the  contents  of 
4992  are  deHvered  to  the  processor. 
The  processor  sees  that  it's  the 
same  value  that  was  stored  and 
does  not  report  a  memory  error. 

A  Better  Algorithm 

Several  good  methods  for  testing 
memory  have  been  developed, 
RAMtest  128  uses  a  shortened  ver- 
sion of  a  method  published  by 
Knaizuk  and  Hartmann  in  1977.  In 
this  scheme,  individual  memory 
cells  are  tested  in  the  usual  way,  by 
storing  a  value  and  reading  it  back. 
A  special  wrinkle  is  used  to  detect 
addressing  faults. 

A  single  fault  in  the  addressing 
system  causes  an  address  error  that 
is  a  power  of  2,  In  our  example 
above,  the  error  was  8,  which  is  2 
raised  to  the  third  power.  Depending 
on  the  address  line  that  is  at  fault, 
the  error  might  be  2,  4,  8,  16, 32,  64, 
128,  or  other  power  of  2  up  to  32768. 
Notice  that  none  of  these  numbers 
may  be  divided  evenly  by  3. 

To  detect  addressing  faults,  we 


store  to  memory  in  a  pattern  of 
three  bytes:  the  first  byte  with  one 
value,  and  the  next  two  with  a  dif- 
ferent value.  Any  power-of-2  error 
will  disrupt  the  three-byte  pattern. 
When  the  program  sweeps  through 
memory  checking  for  correct  val- 
ues, it  will  find  a  misplaced  value 
and  know  there's  a  problem. 

Inside  The  Test 

The  testing  portion  of  this  program 
stores  a  value  (hex  $55,  which  has 
the  binary  pattern  %01010101)  in 
every  location  it  can  reach  in  both 
bank  0  ($0B00-$FEFF)  and  bank  1 
($0400-$FEFF).  Then  it  goes  back 
and  puts  a  different  value  (hex 
$AA,  which  has  the  binary  pattern 
%  10 101 010)  into  every  third  loca- 
tion. It's  important,  by  the  way,  that 
this  be  done  as  a  separate  program 
step.  Finally,  the  program  sweeps 
through  both  banks,  checking  that 
all  locations  contain  the  expected 
values. 

After  the  first  sweep,  the  pro- 
gram reverses  the  test  values  and 
does  it  all  over  again.  If  everything 
checks  out,  RAMtest  128  prints  OK 
on  the  screen  and  repeats  the  test.  If 
an  error  occurs,  the  program  trans- 
fers control  to  the  128's  built-in 
machine  language  monitor. 

Why  does  the  test  repeat? 
Some  memory  failures  are  intermit- 
tent; they  might  be  brought  on  by 
heat,  power  supply  variations,  or 
even  aging  components.  If  that's 
your  suspicion,  let  it  run;  you'll  see 
a  lot  of  OK  messages  printed. 

If  the  program  stops  with  an 
error,  you'll  end  up  in  the  machine 
language  monitor.  If  you're  familiar 
with  machine  language,  the  con- 
tents of  memory  locations  $FA- 
$FC  will  give  you  a  hint  as  to  the 
location  of  the  error.  If  you're  not, 
type  M  FA  FA  and  copy  down  the 
computer's  response  in  order  to 
show  it  to  someone  who  under- 
stands the  hardware  side. 

Program  Setup 

This  program  is  constructed  to  take 
into  account  some  oddities  of  the 
128's  configuration.  If  you  have  ex- 
ecuted a  GRAPHIC  command  in 
the  current  session,  BASIC  might 
start  at  an  address  that's  higher 
than  normal.  Thus,  the  program  be- 
gins with  the  command  BANK  0. 
Without  this  command,  we  might 


SYS  to  ROM  addresses  instead  of  to 
our  program  in  RAM.  The  SYS 
command  doesn't  go  to  an  absolute 
address,  but  to  an  offset  relative  to 
the  beginning  of  BASIC.  Before  it 
begins  the  test,  the  program  relo- 
cates the  testing  section  to  the 
memory  area  at  location  $1000.  The 
test  cleans  away  the  relocating  code 
as  well  as  the  original  copy  of  the 
test  code. 

Scope 

The  program  tests  over  123K  of 
memory  (to  be  exact,  126,720 
bytes)  in  20  seconds — even  less  if 
you're  in  FAST  mode.  That's  over 
6000  bytes  per  second,  which  is 
very  fast  indeed.  Each  byte  is  writ- 
ten at  least  twice  and  then  checked 
twice  in  a  mere  160  microseconds 
or  so. 

A  few  areas  are  not  tested.  The 
program  doesn't  go  below  address 
2816  ($0B00)  in  bank  0,  since  that 
would  garble  the  operating  system 
information  and  the  screen  display. 
And  it  doesn't  go  above  65279 
($FEFF)  to  avoid  disturbing  the 
MMU  (Memory  Management  Unit) 
registers  and  the  sensitive  interrupt 
routines  which  reside  there. 

It  will  be  extremely  rare  to  find 
memory  problems;  there  are  many 
more  bugs  in  software  than  in  hard- 
ware. If  you  think  you've  found  a 
problem,  check  the  program  on  a 
friend's  computer  before  you  take 
your  machine  in  for  service. 

RAMtest  128 

For  instructions  on  entering  this  program, 
please  refer  to  "COMPUTE  !'s  Guide  to  Typing 
In  Programs"  eisewliere  in  this  issue. 

1C01:1D  IC  64  00  FE  02  30  3A  F5 

lC09i9E  C2  28  34  35  29  AA  C2  EF 

lCllt28  34  36  29  AC  32  35  36  92 

1C19:AA  33  30  00  00  00  A0  2E  E8 

1C21:B1  2D  99  D2  00  C8  C0  CE  51 

1029 :D0  F6  78  40  00  01  20  6F  0F 

lC31t01  AD  9E  01  91  FA  20  7F  71 

1C39;01  90  F9  20  6F  01  AD  9F  Dl 

1C41:01  91  FA  20  7F  01  B0  0A  2B 

lC49t20  7F  01  B0  05  20  7F  01  45 

1C51:90  EF  20  6F  01  Bl  FA  CD  5B 

1C59:9F  01  D0  2C  20  7F  01  B0  30 

1C61:18  Bl  FA  CD  9E  01  00  20  09 

1C69:20  7F  01  B0  0C  Bl  FA  CD  A7 

lC7l!9E  01  D0  14  20  7F  01  90  26 

1C79:DC  AD  9E  01  AE  9F  01  8D  F2 

1C81:9F  01  BE  9E  01  10  A7  A9  C6 

1C89:00  8D  00  FF  A9  4F  20  D2  C2 

1C91:FF  A9  4B  20  D2  FF  A9  20  A9 

lC99r20  02  FF  D0  91  A0  3F  8C  BD 

1CA1:00  FF  A0  0B  84  FB  A0  00  F3 

1GA9:84  FA  84  FC  60  18  C8  D0  09 

1CB1:FB  E6  FB  A6  FB  E0  FF  D0  BF 

1CB9jF3  A2  04  86  FB  AE  00  FF  18 

1CC1;E0  7F  80  E8  E6  FC  A2  7F  DE 

lCC9:eE  00  FF  60  AA  55  00  00  F9 
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ML  Runner 


This  Commodore  64  utility  makes  ma- 
chine language  programs  easier  to 
handle  by  turning  them  into  files  that 
load  and  run  like  BASIC,  No  machine 
language  expertise  is  needed  to  use 
the  program. 


Some  of  the  best  programs  avail- 
able for  the  Commodore  64  are 
written  in  machine  language^ — the 
computer's  native  tongue.  But  ma- 
chine language  files  aren't  as  easy 
to  use  as  BASIC  programs.  Most 
require  special  loading  procedures, 
and  it's  easy  to  forget  the  SYS  ad- 
dress that  starts  up  a  program.  But  it 
doesn't  have  to  be  that  way.  COM- 
PUTERS SpeedScript  word  processor, 
for  instance,  loads  and  runs  exactly 
like  BASIC,  even  though  it's  writ- 
ten entirely  in  machine  language. 
Wouldn't  it  be  convenient  if  every 
machine  language  program  worked 
that  way? 

"ML  Runner"  does  exactly 
that,  converting  a  machine  lan- 
guage program  into  a  program  file 
that  saves,  loads,  and  runs  as  if  it 
were  a  BASIC  program.  Type  in  the 
program  and  save  a  copy  on  disk  or 
tape.  Then  select  the  program  you 
wish  to  convert.  In  order  to  do  this, 
you  must  know  four  facts  about  the 
machine  language  program:  its 
name,  starting  address,  ending  ad- 
dress, and  the  SYS  address  normal- 
ly used  to  run  the  program. 


Paul  Lindner 

After  you  run  the  program,  re- 
spond to  the  prompts  as  indicated. 
Be  sure  to  use  a  different  name  for 
the  new  file  you  are  about  to  create. 
When  typing  the  starting  and  end- 
ing addresses,  you  can  use  either 
decimal  or  hexadecimal  numbers. 
Hexadecimal  numbers  must  be  pre- 
ceded with  a  dollar  sign  ($).  These 
addresses  are  the  same  ones  printed 
in  the  article  for  any  COMPUTE! 
program  which  is  typed  in  with  the 
"MLX"  machine  language  entry 
program. 

After  you  answer  all  the  ques- 
tions, the  program  goes  to  work, 
displaying  the  number  of  bytes  it 
has  already  processed.  When  it  is 
done,  the  file  is  ready  to  use.  Load  it 
and  type  RUN,  as  you  would  any 
BASIC  program.  The  converted 
program  is  also  much  easier  to  copy 
than  the  original.  To  make  a  new 
copy  of  the  program,  simply  load  it 
into  memory  and  then  save  a  new 
copy  as  if  this  were  a  normal  BASIC 
program. 

This  method  can  be  used  even 
if  you  don't  know  all  the  required 
address  information.  This  short 
program  will  display  the  starting 
address  of  any  program  on  disk; 

QG  10  OPEN  2,8,2, "0:FILENAME,P 

PA  20  GET#2,A$,B$: CLOSE  2 
BH  30  PRINT  ASC{A$+CHR$(0) )+25 
6*ASC{B$'fCHR$(0)) 

Finding  the  ending  address  of  a 
program  is  even  easier.  Enter  these 


two  commands  in  direct  mode  (vdth- 
out  line  numbers): 

LOAD"FILENAME",8,l 
PRINT  PEEK{46)*256  +  PEEK(45) 

In  both  of  these  examples,  you 
should  replace  FILENAME  with  the 
name  of  the  program  you  wish  to 
investigate.  The  SYS  address  of  a 
machine  language  program  is 
usually  the  same  as  the  starting 
address. 

There  are  a  few  programs  for 
which  this  technique  is  unsuitable. 
Obviously,  if  a  program  already 
loads  and  runs  like  BASIC,  there  is 
no  point  in  converting  it  with  this 
program.  Some  programs,  including 
much  commercial  software,  take 
over  the  computer  when  you  load 
them  with  ,8,1  (they  start  without 
requiring  that  you  enter  a  SYS  com- 
mand). Programs  of  this  type  rely  on 
special  features  of  the  computer  and 
may  not  work  at  all  if  you  convert 
them  with  this  program. 

ML  Runner 

For  instructions  on  entering  this  program, 
please  refer  to  "COMPUTE! 's  Guide  to  Typing 
In  Programs"  elsewhere  h  this  issue. 

RH  10  REM  ^COPYRIGHT  1987* 

FQ  20  REM  *C0MPUTE1  PUBLICATIO 

NS,  INC.* 
KP  30  REM  *ALL  RIGHTS  RESERVED 

* 

OK  40  DEF  FN  HI {Q)=INT(Q/256 ) 
GE  50  DEF  FN  LO( Q )-Q-256*FN  HI 

(Q) 
FJ  60  PRINT" {CLR} COPYRIGHT  198 

7  COMPUTE  1  PUBLICATIONS" 
BD  70  PRINT" {8  SPACES}ALL  RICH 

TS  RESERVED" 
KX  80  FOR  X=1TO1500:NEXT 
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HA  90  PRINT"{CLR} {2  D0WN]":PRI 

NTTAB(15)"ML  RUNNER" 
SK  100  INPUT  *'{3  DOWN} NAME  OF 

{ SPACE } PROGRAM" ; NA$ 
ME  1X0  INPUT" STARTING  ADDRESS 

{space) OP  PROGRAM" ;A$:G 

OSUB390:SA=A 
CH  120  INPUT  "ENDING  ADDRESS *0 

F  PROGRAM" ;A$:GOSUB390: 

EA=A 
PK  130  EE=EA-SA+2093:EH=FN  HI ( 

EE) iEL=FN  lo(ee) 
DD  140  INPUT  "SYS  ADDRESS" ;A$: 

GOSUB390:SY=A 
CC  150  INPUT  "OBJECT  FILE  NAME 

";N$: PRINT: PRINT 
CR  160  PRINT" (CLR) {HOME} 

{3  DOWN} BYTES  TO  BE  CON 

VERTED , , " 
ME  170  OPEN  15,8,15 
PE  180  OPEN  1,8,3, "0:"+N$+",P, 

W" 
GB  190  OPEN  2,8,4, "0s "+NA$+",P 

JX  200  GOSUB280 

MQ  210  GET#2,A$,A$ 

PM  220  FOR  X=SA  TO  EA 

KH  230  GET#2,A$:AA=ASC(A$+CHR$ 

C0)) 
DR  240  PRINT#1,CHR$(AA); 
FJ  250  PRINT"{UP}"TAB(24)EA-X" 

{ LEFT } [ 3  SPACES } " : NEXT 
CK  260  CLOSE  1: CLOSE  2sCL0SE  1 

5:  END 
HG  270  REM  PUT  FUSE  AND  ML  TOG 

ETHER {7  SPACES}* 
FD  280  READ  AtIFA<0  THEN  ON  AB 

S(A)  GOSUB320, 330, 340,3 

50,360,370 
FA  290  PRINT#1,CHR$(A); 
KH  300  IF  E=0  THEN280 
PK  310  RETURN 
HM  320  A=EL; RETURN 
HP  330  A=EH: RETURN 
GX  340  A-FN  L0(EA+1) : RETURN 
QC  350  A-FN  HI (EA+l): RETURN 
QB  360  A=FN  LO ( SY) : RETURN 
ER  370  A^'FN  HI  (SY)  :E=1 ;  RETURN 
EK  380  : 
DK  390  IF  LEFT$(A$,1)="$"ANDLE 

N(A$)=5THEN  A$=RIGHT$(A 

$ , 4 ) : GOSUB410 : RETURN 
SF  400  A=VAL(A$) : RETURN 
HB  410  A=0:  P=4096 :F0RX=1T04:L 

$=MID$CA$,X,1 ) :GOSUB450 

;A=A+P*N 
XR  420  P=P/16 
XC  430  NEXTX I RETURN 
XQ  440  5 
XH  450  N=0 
KC  460  N=-15*(L$="F")-14*(L$=" 

E  "  )  - 1 3  *  ( L$=  '■  D "  )  - 1 2  *  (  L9= 

'*C")-11*{L?="B")-10*(L$ 

=  "A") 
FQ  470  IF  N=0  THEN  N=VAL(L$) 
BE  480  RETURN 
QA  490  : 

SQ  500  REM  STARTING  ADDRESS 
DH  510  DATA  1,8 
SG  520  REM  BASIC  FUSE 
KX  530  DATA  12,8,10,0,158,32,5 

0,48,54,50,0,0,0 
MB  540  REM  ML  PART 
HX  550  DATA  169,44,133,95,169, 

8,133,96 
JX  560  DATA  169,-1,133,90,169, 

-2,133,91 
SB  570  DATA  169,-3,133,88,169, 

-^4, 133,89 
HR  580  DATA  32,191,163,76,-5,- 

6  _ 


Car 
Payments 


Brian  Flynn 


Planning  on  borrowing  money  to  buy 
a  car?  If  so,  youV  find  this  short 
program  for  the  IBM  PC/PCjr  and 
compatibles  helpful  in  estimating  your 
payments.  Excerpted  from  Easy 
BASIC  Programs  for  the  IBM  PC 
and  PCjr  by  Brian  Flynn  (COM- 
PUTE! Books).  Cartridge  BASIC  is  re- 
quired on  the  PCjr. 


After  many  months,  youVe  finally 
succumbed  to  your  dream  of  own- 
ing that  new  car.  You  haggle  with 
the  dealer  and  finally  get  the  price 
within  reason.  But  can  you  afford 
the  payments? 

It's  easy  to  have  that  infor- 
mation before  you  walk  into  the 
dealership,  or  into  your  bank  or 
credit  union.  All  you  have  to  do  is 
run  this  short  program  on  your  IBM 
PC  or  PCjr  or  compatible.  By  insert- 
ing the  amount  of  your  loan,  its 
length,  and  its  interest  rate,  you  can 
quickly  see  how  much  your  month- 
ly payments  will  be,  as  well  as  the 
total  amount  of  interest  you'll  pay 
over  the  life  of  the  loan. 

Loan  Officer 

You  can  have  this  information  at 
your  fingertips,  just  as  your  loan 
officer  does,  by  typing  in  and  sav- 
ing ''Car  Payments."  Run  it,  and 
you'll  cycle  through  a  number  of 


screen  displays,  each  of  which  asks 
for  a  different  piece  of  data. 

Amount  borrowed.  You  can 
enter  any  amount  up  to  $999,999. 
Enter  whole  numbers,  not  fractions 
or  decimals.  The  program  automat- 
ically places  dollar  signs,  commas, 
and  decimal  points. 

length  of  loan.  Type  in  the 
length  of  the  loan,  in  years  and 
months.  Three  years,  for  instance, 
can  be  entered  as  3,0  (3  years,  0 
months)  or  as  2,12. 

Interest  rate.  Enter  the  interest 
rate  you  expect  to  pay  for  your  car 
loan.  YouTl  probably  have  to  call 
your  bank  or  credit  union,  or  the 
dealership,  to  find  out  some  possi- 
ble interest  rates.  You  can  enter 
decimals  in  this  category.  Twelve 
and  a  half  percent  interest  would  be 
typed  in  as  12.5. 

The  program  takes  only  a  mo- 
ment to  compute  your  loan  summa- 
ry. It  summarizes  your  entries  and 
then  tells  you  the  amount  of  your 
monthly  payment,  the  total  youll 
pay,  the  principal  (which  should  be 
identical  to  the  amount  borrowed), 
and  the  total  interest  paid. 

Pressing  any  key  stops  the  pro- 
gram. If  you  want  to  go  through  it 
again,  to  see  the  results  of  a  differ- 
ent interest  rate,  for  example,  type 
RUN  and  the  program  starts  over. 
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Buy  A  New  Car 

How  about  an  example? 

We'll  borrow  $5,000  for  three 
years.  Assume  our  interest  rate  will 
be  12.5  percent.  After  entering 
those  numbers,  the  computer  pauses 
a  moment  and  then  displays  the 
loan  summary. 

The  monthly  payments  will  be 
$167,27,  The  total  amount  you'll 
pay  is  $6,021.65,  with  $1,021.65 
being  interest  on  the  loan.  What 
would  be  the  monthly  payments  if 
you  stretched  out  the  loan  to  four 
years?  Or  if  you  found  a  loan  for  12 
percent  instead?  All  you  have  to  do 
is  run  the  program  again,  using  the 
new  data.  It's  that  easy, 

Two-Toned 

Assuming  you  have  the  hardware 
to  display  this  program  in  color,  it 
will  take  only  one  line  to  create  a 
two-toned  display.  Create  a  new 
line  90  in  this  format: 
90  COLOR  f,b 

where  /  is  the  foreground  color  and 
b  is  the  background  color.  For  in- 
stance, COLOR  14,1  will  create  a 
blue  background  with  yellow  text. 

To  enliven  the  screen  display 
even  more,  you  could  place 
COLOR  statements  before  each 
LOCATE  statement  in  the  routine 
that  starts  at  line  810.  Put  COLOR 
4,1  at  the  beginning  of  line  830,  for 
example,  and  the  text  starting  with 
LOAN  VALUES  changes  to  red  on 
blue.  Experiment  until  you  have 
combinations  you  like,  then  save 
the  modified  version  of  the  pro- 
gram to  disk. 

If  you  have  a  PCjr  and  you're 
using  a  color  TV  or  a  non-RGB 
monitor  for  your  display,  you'll 
have  to  make  another  change.  In 
line  190,  change  the  SCREEN  0 
statement  to  SCREEN  0,1.  Include 
the  colon.  If  you  don't  make  this 
change,  you'll  see  the  screen  in 
shades  of  gray,  not  color. 

Car  Payments 

For  instnjctions  on  entering  this  program, 
please  refer  to  ' 'COMPUTE! 's  Guide  To  Typing 
In  Programs"  eisewhere  in  this  issue. 

PH  10  'Copyright  1937  Compute!  P 

ublications,  Inc. 
Fft  20  'All  Rights  Reserved 
EC  30  CLS:  PRINT  TAB  (20)  "Copyrigh 

t  1987  CofTTpute^  Publicatio 

ns,  Inc. "SPRINT  TAB(30)"A1 

1  Rights  Reserved" 


KO  40  FOR  X=l  TO  900;  NEXT  X 

FN  100  REM  CAR  PAYMENTS 

SD  110  REM  ENTER  DATA 

SF  120   GOSUB  180 

HO  130  REM  COMPUTE 

SE  140   GDSUB  630 

DA  150  REM  DISPLAY  RESULTS 

JO  160   GOSUB  750 

ni    170  END 

HB  180  REM  ENTER  DATA 

Jn  190   KEY  OFF:  SCREEN  0:  WIDTH 

80!  LOCATE  , ,0 
PJ  200   DEFINT  M,N,Y:  DEFDBL  L,P 

»R,T 
IC  210   H*  -  STRING*  < 80,  CHR$C 205 

)  ) 
IE  220   CLS 
IC  230   PRINT  H*; 
CJ  240   PRINT  TAB  (34)  "CAR  PAYMEN 

TS 
Ffl  250   PRINT  H* 
£B  260   REM  AMOUNT  OF  LOAN 
EN  270    GOSUB  330 
OJ  280   REM  PERIOD  OF  LOAN 
DC  290    GOSUB  410 
f16  300   REM  INTEREST  RATE 
BK  310    GOSUB  540 
MB  320  RETURN 
DB  330  REM  LOAN 
DB  340   LOCATE  5,42:  PRINT  SPC(3 

0):  BEEP 
QK  350   LOCATE  5,  is  INPUT  "How  m 

uch  money  would  you  like 

to  borrow  ";Lt 
OE  360   LOAN  =  VAL(L*) 
HL  370   LOCATE  23,27;  PRINT  SPC  ( 

30) 
Cfl  380   IF  LOAN  <=  0  THEN  LOCATE 
23, 28: PRINT  "Please  borr 

ow  something  !":  GOTO  340 
HD  390   IF  LOAN  >  999999  f  THEN  L 

OCATE  23, 27: PRINT 
scale  down  figure 

TO  340 
no  400  RETURN 

LH  410  REM  PERIOD  OF  LOAN 
le  420   CLS 
EP  430   PRINT  "Please  enter  the 

length  o-f  your  loan  in  ye 

ars  and  months. 
DL  440   LOCATE  3,11:  PRINT  SPC  (3 

0) :  BEEP 
nn   450   LOCATE  3,2:  INPUT  "Years 

-  ";Yt 
GE  460   Y  =^  INT(VAL(Y$)  ) 
FI  470   IF  Y  <  0  THEN  440 
QN  4B0   LOCATE  5,11:  PRINT  SPC  (3 

0) :  BEEP 
Cfl  490   LOCATE  5,1:  INPUT 

s  =  ";M* 
?1J  500   M  =  INT{VAL(M*)) 
NK  510   IF  M  <  0  OR  M  >  i: 

480 
I"^  520   N  ^  Y»12  +  M 
HF  530  RETURN 
HC  540  REM  INTEREST  RATE 
iH   550   CLS 
OP  560   PRINT  "Please  enter  the 

interest  rate  on  your  loa 

n.   For  example,  enter  8 

far  87,, 
n   570   PRINT  "11  -for  11%,  and  b 

D  on. 
^D  580   LOCATE  5,18:  PRINT  SPC  (3 

0>:  BEEP 
KA  590   LOCATE  5,1:  INPUT  "Inter 

est  Rate  =  ";R$ 
Fl    600   RATE  =  VAL(R*) 
n   610   IF  RATE  <=  ■!)  THEN  LOCATE 
23, 28: PRINT  "There's  no 

free  lunch  ! " : GOTO  580 
J1E  620  RETURN 
HD  630  REM  COMPUTE 


"Please 
60 


"Month 


THEN 


F^■  640   REM  INTEREST  RATE  PER  PE 

RIOD 
SH  650    R  =  (RATE/ 100)/ 12 
EC  660   REM  PAYMENT  PER  PERIOD 
J^  670    REM  NUMERATOR 
£0  680     PI  =  LOAN*R|!(l+R)^N 
0!  690    REM  DENOMINATOR 
GK  700     P2  =  <1+R)"*N  -  1 
£!  710     PPP  =  PI/P2 
S£  720    REM  TOTAL  PAYMENT 
AG  730     TPAYMENT  =  NtPPP 
Hi    740  RETURN 
C£  750  REM  DISPLAY 
JE  760   CLS 

PK  770   Fl*  =  "=*«#,########«.## 
0^  780   F2S  =  "^   #,########4t 
Er  790   F3*  =  "=    #######»##.## 

7. 
I[  800   PRINT  HSj 
LN  810   PRINT  TAB  (30)  "SUMMARY  OF 

THE  LOAN 
FPt  820  PRINT  H* 
C3  830   LOCATE  5,  15:  PRINT  "LOAN 

VALUES: 
hr.   840   LOCATE  7,  18:  PRINT  "Amoun 

t";TAB(40)  USING  F1*;L0AN 
KH  850   LOCATE  8,  IS:  PRINT  "Numbe 

r  of  years"; TAB (40)  USING 
F2*;Y 
^^  860   LOCATE  9,  18:  PRINT  "Numbe 

r  of  months"; TAB (40)  US  IN 

Q  F2*;M 
lN  870   LOCATE  10,  IS:  PRINT  "Inte 

rest  rate"jTAB(40)  USING 

F3S;RATE 
Vt-  880   LOCATE  14,  15:  PR  INT  "LOAN 

PAYMENTS: 
AG  890   LOCATE  16,18:PRINT  "Mont 

hly";TAB(40)  USING  F1*;PP 

P 
BE  900   LOCATE  17,i8;PRINT  "Tota 

1";TAB(40)  USING  F1*;TPAY 

MENT 
HJ  910   LOCATE  1S,18:PRINT  "Prin 

cipal"}TAB(40)  USING  Fl*; 

LOAN 
N^^  920   LOCATE  19,  18:  PRINT  "Inte 

rest";TAB(40)  USING  Flf;T 

PAYMENT  -  LOAN 
^A  930   LOCATE  22,1:  PRINT  H* 
OE  940   LOCATE  23,34:  PRINT  "Pre 

ss  any  key 
!**  950   S*  =  INKEY* 
KC  960   IF  S*  =  ""  THEN  950 
NB  970  RETURN  0 
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College  Planner 


College  costs  are  spiraling  ever  up- 
ward. Tuition  with  room  and  board  at 
many  state-supported  schools  often 
runs  a  couple  of  thousand  dollars  a 
year,  and  double  or  triple  that  at  pri- 
vate schools.  With  costs  like  these,  a 
long-range  savings  plan  is  certainly 
useful.  That's  where  "College  Plan- 
ner/' written  for  the  IBM  PC /PCjr 
and  compatibles,  can  help.  Excerpted 
from  Easy  BASIC  Programs  for  the 
IBM  PC  and  PCjr  by  Brian  Flynn 
(COMPUTE!  Books).  Cartridge  BASIC 
is  required  for  the  PCjr, 


If  you  have  children,  you  probably 
assume  they'll  go  on  to  some  form 
of  higher  education.  Perhaps  they'll 
take  classes  at  a  community  college. 
Or  maybe  at  the  local  technical 
school.  Perhaps  even  at  a  four-year 
university.  All  cost  money.  How 
much  are  you  going  to  have  to  save 
for  those  years? 

''College  Planner"  gives  you 
an  idea  of  what  it  will  cost  to  edu- 
cate a  child  beyond  high  school.  As 
with  "Car  Payments/'  found  else- 
where in  this  issue,  you  can  run  the 
program  as  many  times  as  you 
want,  changing  the  parameters  to 
reflect  different  situations.  This  will 
give  you  a  better  idea  of  what  it 
might  cost  to  send  your  child  to 
college. 

The  Paper  Chase 

After  typing  in  and  saving  a  copy  of 
College  Planner,  run  it.  You  have  to 
select  the  appropriate  menu  if  you 
want  to  change  the  default  parame- 
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ters  (the  values  that  are  set  when 
the  program  first  runs).  It's  not 
difficult. 

The  easiest  way  to  show  how 
College  Planner  works  is  to  go 
through  an  example. 

Let's  assume  your  child  is  now 
12  years  old.  The  first  display 
screen  asks  for  the  number  of  years 
until  the  paper  chase  begins.  Re- 
spond with  6  (18  -  12  =  6). 

The  computer  then  displays 
the  main  menu.  Here,  you  decide  if 
you  want  to  review  savings,  ex- 
penses, or  economic  assumptions; 
to  compute  totals;  or  to  exit  the 
program.  Pressing  a  single  key  se- 
lects another  menu. 

Review  savings.  By  pressing 
the  1  key,  you'll  see  this  menu  on 
the  screen: 

Annual  Savings 

A.  Parents      ^  $1,000,00 

B,  Kids  =       500,00 

Change  Value  (Y/N)? 

Notice  the  default  settings  of  $1,000 
for  parents'  and  $500  for  child's  sav- 
ings. Just  press  the  Y  key  to  change 
either  of  these.  You'll  be  asked  for 
the  item  to  change  (A  or  B),  and  then 
for  the  new  amount.  Let's  change 
them  to  $500  for  the  parents'  contri- 
bution and  to  $250  for  the  child's 
contribution.  After  you've  entered 
the  figures,  press  the  N  key;  you'll 
return  to  the  main  menu. 

Review  expenses*  Now  press 
the  2  key.  You  should  see  some- 
thing sinailar  to  this: 


First- Year  Expenses  (Today's  Prices) 


A. 

Tuition 

::= 

$4,000.00 

B. 

Room  &  Board 

= 

3,500.00 

C. 

Books 

= 

300.00 

D. 

Travel 

= 

150.00 

E. 

Laundry 

= 

75.00 

F. 

Entertainment 

^ 

250.00 

Change  Value  (Y/N)? 

Again,  to  change  the  amount  in  each 
category,  press  the  Y  key,  select  the 
item,  and  enter  the  new  figure.  For 
example,  let's  say  that  your  child  is 
going  to  a  school  several  states 
away,  with  higher  travel  expenses  to 
and  from  school  Change  that  cate- 
gory to  $500.  Press  the  N  key  to 
return  to  the  main  menu. 

Review  economic  assump- 
tions. Press  the  3  key  and  you'll  see 
the  display  change; 

Economic  Assumptions 

A.  Expected  interest  rate     =  10.00% 

B.  Expected  inflation  rate  =     5.00% 

Change  Value  (Y/N)? 

The  default  values  of  10  and  5  per- 
cent can  be  changed.  The  interest 
rate  is  what  your  yearly  savings  will 
be  compounded  by,  while  the  infla- 
tion rate  signifies  how  much  costs 
increase  each  year.  College  Planner 
assumes  that  college  costs  increase 
at  the  same  rate  as  inflation.  This 
might  not  be  true  in  a  single  year, 
but  over  a  longer  period  of  time  it's 
accurate  enough  for  this  forecaster. 
Let's  change  the  interest  rate  to  12 
percent,  (You  were  able  to  make 
better-than-average  investments,) 
Hit  the  N  key  to  return  to  the  main 
menu. 
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Compute  totals.  Hit  the  4  key 
and  the  program  will  figure  out 
what  it's  going  to  cost  you  to  send 
your  child  to  college.  The  first 
screen  displays  the  cost  of  a  college 
education  (based  on  what  you  en- 
tered in  the  Review  Expenses 
menu)  in  terms  of  today's  dollars, 
discounting  inflation.  All  four  years 
should  have  the  same  total.  Press 
any  key  and  another  display  ap- 
pears. This  shows  what  the  cost  of 
the  education  vdll  be  when  your 
child  reaches  college  age.  The  num- 
bers are  adjusted  for  inflation,  and 
in  fact  increase  each  year  by  5  per- 
cent, or  by  the  rate  of  inflation  you 
earlier  specified.  Note  that  these 
figures  are  in  future  dollars.  Hit  any 
key  and  the  Bottom  Line  screen 
displays.  It  shows  how  much  you 
saved,  the  interest  you  received 
over  those  six  years,  the  total  mon- 
ey avaOable,  the  cost  of  college  in 
today's  dollars,  the  total  in  inflated 
dollars,  and  the  final  balance.  Hit- 
ting any  key  will  return  you  to  the 
main  menu  again. 

Now  you  can  run  the  program 
again,  this  time  entering  a  higher 
amount  of  savings.  By  trial  and  er- 
ror, youTl  find  how  much  you'll 
have  to  save  in  order  to  pay  for  your 
child's  education.  Of  course,  when 
you  use  this  program  yourself, 
you'll  be  entering  different  parame- 
ters to  reflect  your  child's  age  and 
your  own  estimates  of  what  college 
will  cost. 

School  Colors 

Adding  color  is  relatively  simple.  If 
you  want  to  change  the  display, 
insert  a  new  line  90,  in  the  format 

90  COLOR  /,fr 

where  /  is  the  foreground  color  val- 
ue and  b  is  the  background  color 
value.  A  line  90  that  includes 
COLOR  15,4,  for  example,  will 
show  the  text  in  high -intensity 
white  on  a  red  background.  If  you 
have  a  PCjr  and  you're  using  a 
color  TV  or  a  non-RGB  monitor  for 
your  display,  you'll  have  to  make 
one  additional  change.  In  line  290, 
change  the  SCREEN  0  statement  to 
SCREEN  0,1.  Make  sure  you  in- 
clude the  colon  that  follows.  If  you 
don't  make  this  change,  you'll  see 
the  screen  in  shades  of  gray,  not 
color. 
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m  100 


i? 


110 


150 
PL  160 
SH  170 
EE    180 

EA    190 


'Col 


NEX 


For  Instructions  on  entering  this  program, 
pieose  refer  to  "COMPUTEi's  Guide  to  Typing 
in  Programs"  elsewinere  in  tliis  issue. 

n    10  '  COPYRIGHT  1787  COMPUTE! 

PUBLICATIONS,  INC, 
pH  20  '  ALL  RIGHTS  RESERVED 
K.  30  REM  COLLEGE  PAYMENTS 
CH  40  REM  INITIALIZE 
Cft  50   GOSUB  130 
NN  60  REM  ENTER  VALUES 
HD  70   GOSUB  470 

I!  80  REM  CHOOSE  FROM  MAIN  MENU 
GL  90       60SUB  630 

ON  PICK  GOSUB  760,760,76 
0,  1170 
IF  PICK  <>  5  THEN  90 
LO  120  END 

rtF  130  REM  INITIALIZE 
^N  140   REM  TITLE 
GOSUB  210 
REM  HEADING 

GOSUB  270 
REM  KEY  VALUES 
GOSUB  330 
m   200  RETURN 
HC  210  REM  TITLE 
QB  220   KEY  OFF:  SCREEN  0:  WIDTH 

80:  LOCATE  ,,0:  CLS 
OD  230  PRINT  TAB(20)  •' Copyright  1 
987  Compute!  Publications 
,  Inc.  ": PRINT  TAB (30)  'All 
Rights  Reserved" 
LOCATE  13,32:  PRINT 
lege  Planner 

FOR  DELAV=i  TD  2500: 
T 
NI  260  RETURN 
BK  270  REM  HEADING 
Jft  280   CLS 

PRINT  "College  Planner  i 
s  designed  to  help  you  de 
velop  a  plan  to  pay  for  y 
our  child's 

PRINT  "education.  Colle 
ge  Planner  assumes  that  y 
our  annual  savings  will  e 
arn  interest 

PRINT  "bat  that  inflatio 
n  Mill  force  expenses  upw 
ard. 
«B  320  RETURN 
HP  330  REM  KEY  VALUES 

DEFINT  I-Q,T,Z:  DEFDBL  C 
.E,R,S,V,X 
REM  NUMBER  OF  CATEGORIES 

K  ^  3 
REM  MAX  NUMBER  OF  ITEMS 
PER  CATEGORY 
DATA  10 
READ  NX 

DIM  C*<3> ,  EK(NX+1,4>, 
EF(NX+1,4),  X*<NX,3>,  X (N 
X,3) 

REM  ACTUAL  NUMBER  OF  ITE 
MS 

DATA  2,6,2 
FOR  1=1  TO  K 

READ  NCI  J 
NEXT 
NK  460  RETURN 
OL  470  REM  ENTER  VALUES 

REM  YEARS  TO  COLLEGE 
LOCATE  5,39:  PRINT  SPC C 
30) :  BEEP 

LOCATE  5,1:  INPUT "How  m 
any  years  until  college  b 
egins  ";S* 
N  =  VALCS*) 

IF  N  <  1  THEN  LOCATE  23 
,23:  PRINT  "It's  a  bit  to 
o  late  for  planning  !":  G 
OTO  490 


Kfl  240 


CD  250 


IF  290 


NA  300 


m  310 


EN  340 

HB  350 
LC  360 
KH  370 

JB  380 
PH  390 

KK  400 


Dfl  410 

A6  420 

BP  430 
Qn  440 
MI  450 


cn  4e0 

CJ  490 


IF  500 


00  510 
U   520 


530 
540 
550 
560 
570 
580 
590 
600 
610 


650 

660 

670 

6B0 

690 

700 
710 

720 
730 
740 


REM  CATEGORIES 
FOR  1=1  TO  K 

READ  CSd) 
NEXT 
REM  ITEMS 
FOR  1=1  TO  K 
FOR  J=l  TO  Nil) 
READ  XS(J, I) ,  X(J,I) 
NEXT  J, I 
620  RETURN 
630  REM  MAIN  MENU 
640   CLS 

LOCATE  10,31:  PRINT  "Wnu 
Id  you  like  to 
PRINT  r  PRINT  TAB(32)"1- 
Review  savings 
PRINT  TAB(32)"2,  Review 
expenses 

PRINT  TAB<32)"3.  Review 
economic  assumptions 
PRINT  TAB(32) "4.  Compute 
totals 

PRINT  TAB(32)"5.  Exit 
PRINT:  PRINT  TAB(31)"Cho 
ice  =  ?_":  BEEP 
S*  =^  INKEYS 
PICK  =  INT(VAL(SS) ) 
IF  PICK  <  1  OR  PICK  >  5 
THEN  720 
750  RETURN 
760  REM  UPDATE 

770   H*  ^  STRING* CB0,CHR$ (205 
)  ) 
P  =  PICK 
Z  =  N<PJ 
REM  DISPLAY 

GOSUB  850 

REM  SELECT 

GOSUB  970 

840  RETURN 

850  REM  DISPLAY 

860   IF  PICK  <>  3  THEN  F%    =  " 
-    «*#,##«#.##"  ELSE  Ft  = 

CLS 

PRINT  H*; 
LN  =  LEN(C*(PJ ) 
PRINT  TAB(40-LN/2>C*(P) 
PRINT  H* 
FDR  J=l  TO  Z 
PRINT  TAB(13)CHR*<J+64> 
; " , " J  TAB ( 16) X*  < J , P ) ; TAB (4 
5)  USING  F*;X(J,P> 
NEXT  J 

LOCATE  16, 1;  PRINT  HS 
NP  960  RETURN 
CS  970  REM  SELECT 
Bfl  980   LOCATE  18,1:  PRINT  "Chan 

ge  value  CY/N)  ?":  BEEP 
IF  990   S*  =  INKEY* 
ON  1000   IF  S*  =  "N"  OR  S*  =  "n" 

THEN  1160 
n  1010   IF  S*  <>  "Y"  AND  S*  <> 

"y"  THEN  990 
ME  1020  LOCATE  20,1:  PRINT  "Ite 
m  =  ?":  BEEP 
S$  =  INKEYt 
IF  S*  =  ""  THEN  1030 
Q  =  ASCfS*) 
REM  CAPS 

IF  Q  >  96  THEN  Q  =  Q  - 
32 

REM  ELEMENT  IN  VECTOR 
Q  ^  0-64 

IF  G  <  1  OR  Q  >  2  THEN 
1030 

REM  NEW  VALUE 
LOCATE  22,1:  BEEP:  INP 
UT  "New  value  =  ";S* 
X(D,P>  =  VAL(SS) 
GOSUB  850 
GOTO  980 
RETURN 
1170  REM  COMPUTE  TOTALS 


780 
790 
800 
810 
020 
830 


870 
800 
890 
900 
910 
920 
930 


940 
950 


6n 

1030 

JJ 

1040 

BI 

1050 

DF 

1060 

ID 

1070 

JD 

1080 

ML 

1090 

m 

1100 

KB 

1110 

NK 

1120 

m 

1130 

pe 

1140 

CD 

1150 

jp 

1160 

EH 

1170 
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JP  UB0 

CLS:  LOCATE  13,35:  PR IN 
T  "Computing  , . » 

TAB(31>"lBt  Year"; TAB (44 
)"2nd  Year"; TAB (57)  "3rd 

6H  1190 

REM  COMPUTE 

Year"; TAB (70) "4th  Year 

CN  1200 

REM  SAVINGS 

en 

1060 

PRINT 

CF  1210 

GOSUB  1320 

OJ 

1870 

FOR  1=1  TO  Q+1 

BP  1220 

REM  EXPENSES 

JS 

1880 

PRINT  TAB(3>X*(I,2) ;TA 

Etc  1230 

GOSUB  1510 

B(28); 

NB  1240 

REM  TOTAL  EXPENSES 

JB 

1890 

FOR  J=l  TO  4 

FA  1250 

GOSUB  1610 

CI 

1900 

IF  TITLE*  =  "TODAY'S" 

m    1260 

REM  DISPLAY  EXPENSES 

THEN  VL  =  EK(I,J>  ELSE 

QP  1270 

TITLE*  -  "TODAY'S":   G 

VL  =  EF(I,J) 

OSUB  1750 

LP 

1910 

PRINT  USING  F*;VL:s  P 

ID  1280 

TITLE*  =  "INFLATED":  G 

RINT  -   "; 

OSUB  1750 

BE 

1920 

NEXT  J 

KF  1290 

REM  DISPLAY  TOTALS 

KC 

1930 

PRINT 

PC  1300 

GOSUB  2010 

DP 

1940 

IF  I  «  Q  THEN  PRINT 

IE  1310 

RETURN 

01 

1950 

NEXT  I 

EH  1320 

REM  SAVINGS 

LN 

1960 

LOCATE  20,1:  PRINT  H* 

ftD  1330 

T  =  N+4 

NC 

1970 

LOCATE  23,34:  PRINT  "Pr 

BI  1340 

REM  INTEREST  RATE  IN  IN 

ess  any  key 

DEX  FORM 

DN 

1980 

S*  »  INKEY* 

BE  1350 

RATE  -  1  +  X(l,3)/100 

BP 

1990 

IF  S»  -  '•"  THEN  19B0 

6E  1360 

REM  SAVINGS  PER  YEAR 

IM 

2000 

RETURN 

KK  1370 

SPY  =  0 

NL 

2010 

REM  TOTALS 

CN  1380 

FOR  J  =  l  TO  Nd) 

LL 

2020 

F*  =  "=  ♦♦#,#»»#«»#.## 

JB  1390 

SPY  =  SPY  +  X(J, 1) 

HL 

2030 

CLS 

BC  1400 

NEXT 

on 

2040 

PRINT  H*; 

PI  1410 

REM  PRINCIPAL 

00 

2050 

PRINT  TAB < 33) "THE  BOTTO 

OH  1420 

SAVPRN  =  SPY«T 

n   LINE 

6F  1430 

REM  TOTAL  (INCLUDES  INT 

HN 

2060 

F>RINT  H* 

EREST) 

CF 

2070 

PRINT  TAB (16) "SAVINGS  F 

J  J  1440 

SAVTOT  =  0 

OR  COLLEGE 

NB  1450 

FDR  1=1  TO  T 

FD 

2080 

PRINT 

BP  1460 

SAVTOT  =  SAVTOT  +  SPY 
*RATE^(T-I+1) 

JB 

2090 

PRINT  TAB( 18) "Principal 
"STABC40>  USING  F*;3AVPR 

CH  1470 

NEXT 

N 

CK  1480 

REM  INTEREST 

NX 

2100 

PRINT  TAB( 18) "Interest" 

KE  1490 

SAVINT  -  SAVTOT  -  SAVP 

|TAB<40)  USING  F*; SAVINT 

RN 

IH 

2110 

PR I NT  TAB (18)" Total " ; TA 

IF  1500 

RETURN 

B(40>  USING  F*; SAVTOT     ' 

JE  1510 

REM  EXPENSES 

Nl 

2120 

LOCATE  12, 16: PRINT  "COS 

61  1520 

REM  INFLATION  RATE  IN  I 

T  OF  COLLEGE 

NDEX  FORM 

EB 

2130 

PRINT 

KH  1530 

RATE  =  i  +  XC2,3) /100 

J« 

2140 

PRINT  TAB (18) "In  today' 

KE  1540 

Q  =  NC2) 

tt  doll  are"; TAB (40)  USING 

Nl  1S50 

FOR  I==l  TO  Q 

F*; COSTK 

IC  1560 

FOR  J=l  TO  4 

BK 

2150 

PRINT  TAB(18)"In  inflat 

10  1570 

EK<I,J)  =  X(I,2) 

ed  dollars"; TAB (40)  US IN 

OP  1580 

EF(I,a)  =  X(I,2)»RATE 

G  F*; COSTF 

^(N+J) 

10 

2160 

LOCATE  IB, 16:  PRINT  "SA 

CC  1590 

NEXT  J, I 

VINGS  -  INFLATED  COST";T 

CH  1600 

RETURN 

AB(40)  USING  F»;SAVTOT-C 

NG  1610 

REM  TOTALS 

DSTF 

LH  1620 

FOR  I-l  TO  4 

KB 

2170 

LOCATE  20,1:  PRINT  H* 

FW  1630 

EK(Q-i-l,  I>=0:  EF(Q+1,I) 
=0 

m 

2180 

LOCATE  23,34:  PRINT  "Pr 
ess  any  key 

KF  1640 

FOR  J=l  TO  Q 

CB 

2190 

S*  =  INKEY* 

OK  1650 

EK(Q+l,n  =  EK(Q+i,I) 

EH 

2200 

IF  S*  *  ""  THEN  2190 

+  EK(J, I) 

ID 

2210 

RETURN 

LD  1660 

EF(Q+1, U  =  EF(Q+1,I) 

JO 

2220 

REM  DATA 

+  EF(J, I) 

PJ 

2230 

REM  CATEGORIES 

CO  1670 

NEXT  J, I 

HP 

2240 

DATA  Annual  Savings,  F 

AC  1680 

REM  BRAND  TOTALS 

irst-Year  Expenses  CEsti 

Lie  1690 

COSTK=0:  COSTF=0 

mate).  Economic  Assumpti 

HI  1700 

FOR  1=1  TO  4 

ons 

JN  1710 

COSTK  »  CDSTK  +  EK(Q+ 

DO 

2230 

REM  SAVINGS 

i.n 

FF 

2260 

DATA  Parents,  1000 

fiE  1720 

COSTF  »  COSTF  +  EF<Q+ 
1,1) 

BS 

2270 

DATA  Kids  -  summer  job 
s,  500 

CB  1730 

NEXT 

MB 

2280 

REM  EXPENSES 

JF  1740 

RETURN 

OD 

2290 

DATA  Tuition, 4000 

EL  1750 

REM  DISPLAY 

NF 

2300 

DATA  Room  &  Board, 3500 

J  J  1760 

F*  «  "»»#,###»-## 

ai 

2310 

DATA  Books, 300 

FE  1770 

H»  ^    STRING* (B0,CHR» (20 
5)) 

OB 

2320 

DATA  Travel  To  St  From 
School ,150 

FC  1780 

X*(a+1,2>  =  "Total 

D6 

2330 

DATA  Laundry, 75 

JK  1790 

CLS 

AH 

2340 

DATA  Entertainment, 250 

OP  1800 

PRINT  H*j 

JD 

2350 

REM  ECONOMIC  ASSUMPTION 

KE  1810 

T*  =  "COLLEGE  EXPENSES: 

5 

'*    +  TITLE*  +  "  DOLLARS" 

FN 

2360 

DATA  Expected  interest 

6L  1820 

L  =  LEN(T*) 

rate, 10 

61  1830 

PRINT  TAB(40-L/2)T* 

JC 

2370 

DATA  Expected  inflatio 

HG  1B40 

PRINT  H« 

n  rate, 5               g 

10  1850 

PR I NT  TAB ( 2 ) " Cat eg  or  y " ; 
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GraphiDemo 
For  Amiga 


Stefan  Lindahl 


This  intriguing  graphics  program, 
written  by  a  COMPUTE!  reader  in 
Sweden,  demonstrates  the  the  Ami- 
ga's tremendous  graphics  processing 
power  as  well  as  the  speed  of  Amiga 
BASIC,  512K  of  memory  is  required 


"GraphiDemo"  demonstrates  just 
how  easy  it  is  to  create  impressive 
graphics  in  Amiga  BASIC.  Type  it  in 
and  save  a  copy  of  the  program, 
then  run  it.  GraphiDemo  begins  by 
displaying  a  help  screen  that  ex- 
plains all  of  the  program's  options. 
You  can  recall  this  screen  at  any 
time  by  pressing  the  Help  key.  Take 
a  moment  to  look  at  all  the  different 
options — you'll  want  to  try  them  all. 
GraphiDemo's  options  can  be 
invoked  in  two  different  ways.  If 
you  press  the  right  mouse  button 
and  examine  the  menus  at  the  top 
of  the  screen,  you  will  see  that 
every  option  can  be  selected  from  a 
menu,  using  the  mouse  pointer. 
However,  GraphiDemo  uses  all  of 
the  Amiga's  colors,  which  can  make 
the  menus  unreadable  at  times. 
Thus,  you  can  also  select  any  op- 
tion by  pressing  the  key  indicated 


"GraphiDemo"  can  produce  thousands 
of  ijiteresting  designs  similar  to  the  one 
shown  here. 


in  the  help  screen.  If  you  forget 
which  key  is  assigned  to  which  op- 
tion, simply  press  Help.  When  you 
exit  the  help  screen,  the  main 
screen  is  restored  to  its  original 
condition. 

Since  the  program  is  entirely 
self-prompting,  no  elaborate  expla- 
nations are  necessary.  Just  run  it, 
follow  the  prompts,  and  enjoy  the 
show.  If  you  are  interested  in  graph- 
ics programming,  the  program  pro- 
vides examples  of  how  to  draw 
different  shapes  and  control  the 
color  palette  for  various  effects. 


GraphiDemo  for  Amiga 

For  instructions  on  enteiing  tliis  program, 
please  refer  to  "COMPUTE  I 's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 


REM  **  Copyright  1987  Compute  1  P 

ublications.  Inc.   **-* 

REM  **  All  Rights  Reserved  **-* 

K 

CLEAR  ,13000  :REM  *  Relea 

se  basic  memory  to  system  *-* 

DEFINT  b-y  : REM  *  Integ 
er  definition  *^ 

RANDOMIZE  TIMER      ; REM  *  New  r 

andom  seed  *-*, 

-<• 

b=5  :REM  *  Maxim 

urn  step  length  *■* 

cm=0  iREM  *  Circl 

emode  off  *-« 

depth=4  :REM  *  No  of 

bit  layers  *■* 

SCREEN  2,640, 200, depth, 2< 

WINDOW  2,  ,  ,16,2-* 

maxcoLor=2*depth-l'* 

<* 

GOSUB  setcoL-t 

GOSUB  CLrmenu^ 

ch^2jch2temp=3:GOSUB  10: GOSUB  20 
:  REM  *  Set  menus  &  checlc  marks  * 

ON  MENU  GOSUB  Mnuche-* 
MENU  ON-t 

ON  MOUSE  GOSUB  ChRmus-* 
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MOUSE  ON-* 


GOSUB  Info 
info-window  *-« 


:REM  *  Display 


VarvaL:-* 

xl=50+RND*540;yl=50+RND*120:x2=5 

0+RND*540:y2=50+RND*120-6 

IF  x2<xl  OR  y2<yl  THEN  VarvaL-* 

xsl=(l+RND*b) :xs2=(l+RND*b) :ysl= 

(H-RND*b)  :ys2={  H'RND*b)^ 

minx=0  :maxx~629  :miny=0  ;jTiaxy=195'* 

Main:* 

FOR  doit=-l  TO  1  STEP  2-* 

■<, 

FOR  cc=maxcoLor*-{doit=-l)  TO  ma 

xcoLor*-(dQit-l)  STEP  doit-* 

oLdxl=xl :oLdyl=yl :xl=xl+xsl :yl=y 

1+ysl-* 

oLdx2=x2;oLdy2=y2 :x2=x2+xs2 :y2=y 

2+ys2'* 

IF  xKminx  OR  xl>inaxx  THEN  xl=xl 
-xsl:xsl=(l+RND*b)*-SGN(xsl  ) -« 
IF  x2<minx  OR  x2>maxx  THEN  x2^x2 
-Xs2:xs2='(l  +  RND*b}*-SGN(xs2)'« 
IF  yKminy  OR  yl>maxy  THEN  yl=yl 
-ysl rysl={ l+RND*b ) *-SGN ( ysl )* 
IF  y2<miny  OR  y2>maxy  THEN  y2=y2 
-ys2:ys2=(l+RND*b)*-SGN(ys2)* 
key-ASC(INKEY$+CHR${0) ) :IF  Key  T 
HEN  GOSUB  Keyche-* 
ON  choice  GOSUB  Serpent, Lines, Bo 
xes ,  Filledboxes-* 
NEXT  CC-* 
NEXT  doit^ 

4 

GOTO  Main     -* 

•4 

Serpent  :< 

COLOR  CO:  IF  cm  THEN-* 

GOSUB  CircLepos:AREA  STEP  (0,0): 

AREA  (xl,yl):AREA  (x2,y2)4 

AREAFILL4 

ELSE* 

AREA  (xl,yl)iAREA  (oLdxl , oLdyl ) : 

AREA  (x2,y2):AREA  (oLdx2 , oLdy2 ) * 

AREAFILL* 

AREA  (xl,yl):AREA  (x2,y2):AREA  ( 

OLdxl,OLdyl) :AREA  (oLdx2, OLdy2 ) * 

AREAFILL4 

END  IF* 

RETURN* 

Lines  :* 

IF  cm  THEN  GOSUB  CircLepos  ELSE 

PSET  Cxl,yl},cc* 

LINE  -{x2,y2) , cc* 

RETURN* 

Boxes :* 

IF  cm  THEN  GOSUB  CircLepos  ELSE 

PSET  (xl,yl),cc* 

LINE  -(x2,y2) ,cc,b* 

RETURN* 

Filledboxes :* 

IF  cm  THEN  GOSUB  CircLepos  ELSE 

PSET  { xl , yl ) , cc* 

LINE  -(x2,y2) ,cc,bf* 

RETURN* 

CircLemode :* 

CLS:cm=ABS(cm-l )* 

RETURN* 

* 

CircLepos : * 

api==api+»05:PSET  ( 3  14+-200*SIW(ap 

i) ,90+7  0* COS (a pi) ) ,cc* 

RETURN* 

■4 

Mnuciic  :  * 

IF  HENU(0)=2  THEN  menu2       :REM 


*  Menu  1  or  2  ?* 
menul :* 
ch=MENU(l)'< 

IF  ch>4  THEN  ON  ch-4  GOTO  SetcoL 

, Info, Resetprog* 

10   GOSUB  Setmenu* 

choice=ch:MENU  1, choice i 2* 

RETURN* 

menu2 ;* 

ch2temp=MENU(l)* 

20  IF  ch2=ch2temp  THEN  RETURN  E 
LSE  ch2=ch2temp* 

21  GOSUB  menuNo2:MENU  2,ch2,2'* 
GOTO  SetcoL* 

Keyche:  * 

IF  key=27  THEN  Resetprog 

:REM  *  Esc   key  ** 

IF  Key=139  THEN  Info 

:REM  *  Help  key  ** 

IF  key=133  THEN  SetcoL 

:REM  *  F5    key  ** 

IF  key=127  THEN  CLS 

:REM  *  Del   key  ** 

IF  (key  AND  2  23) =67  THEN  CircLem 

ode   :REM  *  'C   key  ** 

IF  key>133  AND  key<137  THEN  coLo 

rmode* 

IF  key<129  OR   key>132  THEN  RETU 

RN  * 

ch=key- 128: GOTO  10  s REM 

*  FI  -  F4  ** 
coLormode :* 
ch2temp=key-133 :GOTO  20     :REM 

*  F6  -  F8  ** 
RETURN* 

* 


Setmenu:* 

MENU  1,0,1," 

Main:"* 

MENU  1,1,1," 

Serpent 

'i* 

MENU  1,2,1," 

Lines 

*< 

MENU  1,3,1," 

Boxes 

'  -^ 

MENU  1,4,1," 

Filledboxes 

'■« 

MENU  1,5,1," 

New  Colors 

'* 

MENU  1,6,1," 

Help 

'* 

MENU  1,7,1, " 

Stop  program"* 

RETURN* 

menuNo2 :* 

MENU  2,0,1," 

ColorOptions: "* 

MENU  2,1,1," 

RGB  <->  BLACK  sha 

ding"* 

MENU  2,2,1," 

Random  color  shad 

ing  "* 

MENU  2,3,1," 

"* 

RETURN  * 

Random  colors 

CLrmenu :* 

MENU  1,0,0,"'"* 

MENU  2,0,0, ""* 

MENU  3,0,0,""        '1  Clear  sta 

ndard  menus* 

MENU  4,0,0,""* 

RETURN* 

* 

SetcoL:* 

ON  ch2  GOTO  SetcoLl ,SetcoL2,Setc 

oL3* 

* 

SetcoLl :* 

CLS* 

G=RND*7+*5  * 

cl=SGN(c  AND  1)* 

c2=SGN(c  AND  2)* 

c3=SGN(c  AND  4)    * 

FOR  c=0  TO  maxcoLor* 

PALETTE  c, (c/l6)*cl, (c/l6)*c2, (c 

/I6)*c3* 

NEXT  c* 

RETURN* 

SetcoL2:* 
CLS* 


FOR  w=l  TO  3:al(w)=RND:a2(w}=RND 
:NEXT  w* 

FOR  w=l  TO  3:adeL(w)=(a2(w)-al(w 
)  )/(maxcoLor+l)  :NEXT  w-* 

* 

FOR  w=0  TO  maxcoLor* 
PALETTE  w,al(l) ,al(2) ,al(3)* 
FOR  wl^l  TO  3:al(wl)=al(wl)+adeL 
(wl):NEXT  wl-t 
NEXT  w* 
RETURN   * 

SetcoL3 :* 

FOR  c-0  TO  maxcoLor* 

PALETTE  c,RND,RND,RND* 

NEXT  c* 

RETURN* 

* 

Resetprog :* 

MENU  RESET* 

PALETTE  0,  .4375,  .125,  .1875* 

PALETTE  1,1,  .56,0-4 

PALETTE  2,1, .1, .6* 

PALETTE  3, .44, .6, .94* 

WINDOW  CLOSE  2* 

SCREEN  CLOSE  2-4 

CLS* 

END* 

* 

Chkmus : * 

IF  inf  THEN  inf=0  ELSE  CLS* 

RETURN* 

* 

Info:* 

MENU  STOP :inf=l: REM*  To  tell  mou 

se-trapping  routine  * 

WINDOW  3,, (100,10)-(517,175),0,2 

:REM  that  we're  in  Info* 

CLSiCOLOR  maxcoLor-2'4 

PRINT  SPACE? (5) ; "Copyright  1987 

Computel  Publications,  Inc."* 

PRINT  SPACE$(16) ?"A11  Rights  Res 

erved" :PRINT* 

PRINT  SPACE$(20) ; "GRAPHIDEMO"* 

PRINT  SPACE$(8)  ;''F1  or  Menu  .... 

Serpent"* 

PRINT  SPACE$(e) r "F2  or  Menu  

* Lines"* 

PRINT  SPACE${B) ;"F3  or  Menu  .... 

Boxes"* 

PRINT  SPACE? C8) ;"F4  or  Menu  ..*. 
,..,,.,..  Filledboxes"* 

PRINT  SPACE$(8) ; "F5  or  Menu  

New  Colors"* 

PRINT  : PRINT  SPACE? ( 8 ) ; "F6  or  Me 
nu  ...  RGB  <->  BLACK  shading"* 
PRINT  SPACE?(8) r "F7  or  Menu  .... 
Random  color  shading"* 
PRINT  SPACE?(8) ; "F8  or  Menu  .... 

Random  colors"* 

PRINT  SPACE?(B) ;" 'C  key  ....... 

.  toggle  ' Circlemode ' "* 

PRINT: PRINT  "Clear  Screen  with  L 

eft  Mouse  button  or  the  DEL  key. 

"■4 

PRINT  "   Stop  the  Program  with  t 

he  ESC  key  or  from  Menu."* 

PRINT: PRINT  "Get  this  window  bac 

k  with  the  HELP  key  or  from  Menu 

.  "* 

PRINT: PRINT  SPACE? ( 14 ); "PRESS  AN 

Y  KEY  TO  CONTINUE";* 

Waithere :* 

IF  INKEY$=""  AND  inf-i  THEN  Wait 

here    : REM  *  Check  for  key  or 

-4 

WINDOW    CLOSE    3 

:  REM    *    mousebutton'4 

MENU    ON  * 

RETURN* 

* 
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Font  Loader 

For  Apple  ImageWriter 


This  convenient  utility  allows  you  to 
preview  a  custom  printer  font  on  the 
screen  before  downloading  it  to  an 
Apple  ImageWriter  printer.  An  Image- 
Writer  I  or  ImageWriter  11  printer  is 
required.  The  program  runs  on  any 
Apple  Il-series  computer^  but  only 
under  ProDOS. 


One  powerful  special  feature  of  Ap- 
ple's ImageWriter  printers  is  the 
ability  to  print  user-defined  charac- 
ter sets,  or  fonts.  A  wide  variety  of 
font  designs  are  available  commer- 
cially and  through  Apple  user 
groups.  ''Font  Loader"  is  a  utility 
for  loading  a  standard  printer  font 
to  an  Apple  ImageWriter  I  or  Image- 
Writer  II  printer.  You  must  have 
one  or  more  ImageWriter  font  files 
to  use  this  program.  Font  Loader 
doesn't  have  any  provision  for  cre- 
ating new  fonts;  it  simply  makes 
existing  fonts  easier  to  use. 

Type  in  and  save  a  copy  of 
Font  Loader,  Before  you  run  the 
program  for  the  first  time,  create  a 
disk  subdirectory  named  FONTS 
and  copy  all  of  your  font  files  into 
that  subdirectory.  When  you  run 
Font  Loader,  it  loads  the  first  font 
from  the  FONTS  subdirectory  and 
displays  it  on  the  screen. 

At  this  point,  you  have  several 
options  as  indicated  by  the  on- 
screen prompts.  Use  the  right-  and 
left-arrow  keys  to  cycle  forward  or 
backward  through  different  fonts. 
Press  Return  to  load  and  view  a 
font,  and  press  L  to  download  a 


Ed  Thompson 

font  to  the  printer.  The  P  key  prints 
the  entire  font  on  the  printer.  The  C 
key  clears  a  downloaded  font  from 
the  printer,  and  R  resets  the  printer. 

Font  Loader 

For  instructions  on  entering  this  program, 
please  refer  to  "COMPUTEl's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  Issue. 

B8  10  REM  «  COPYRIGHT  1987 

t 
46  20  REM  t  COMPUTE!  PUBLICATION 

S,  INC.* 
BD  30  REM  *  ALL  RIGHTS  RESERVED 

t 
37  100  HIMEM:  136  »  256 
CF  110  TEXT  :  PRINT  :  PRINT  CHR* 
(21 >:  GOSUB  1120;  GOTO  5 
60 
21  120  REM  PRINT  FONT 
46  130  PRINT  CHR*  (4>"PR#1'* 
EB  140  PRINT 

42  150  PRINT  CHR*  (4)  "PR#0" 

Aa  160  E*  =  CHR«  C27>  +  CHR*  (43 
)  +  CHR*  (27)  +  CHR*  (73) 

53  170  P  «^  768  +  12:3  =  760  +  16 
+  6 

A4  iB0  POKE  40608,12;  POKE  48609 
,3 

Fl  190  PRINT  E*; 

B5  200  ADD  =  34816 

41  210  FOR  C  =  32  TO  126 

44  220  PRINT  CHR*  (C}"6"; 

M  230  POKE  1,  INT  (ADD  /  256) 
FC  240  POKE  0,  INT  (ADD  -  PEEK  ( 
1)  «  2S6> 

45  250  POKE  3,7 
D3  260  CALL  S 

£A  270  ADD  =  ADD  +  8 
EB  200  NEXT  C 

43  290  PRINT  CHR*  (4) 

18  300  PRINT  CHR*  <4)  "PR«1 
E4  310  PRINT 

42  320  PRINT  CHR*  (27>"' 

71  330  IF  FLAG  <  >  1  THEN  350 

A£  340  FLAG  =  0;  SOTO  430 

39  350  PRINT  A*<X)  +  "-SET" 

44  360  FOR  I  «  32  TO  63;  PRINT  C 

HR*  (I);s  NEXT 
n   370  PRINT 
Bf  300  FOR  I  -  64  TO  95:  PRINT  C 

HR*  (I)  J I  NEXT 


F4  390 
39  400 

3B  410 
34  420 
E9  430 
n  440 
DJ  450 

Fl  460 

24  470 
F8  480 

fla  490 

91  500 
49  510 
49  520 
93  530 

44  540 
21  550 
75  560 
A2  570 


8B 


F6  590 


K   600 


77  610 


SB  620 
Ff  630 

It   640 
14  650 


48  660 


PRINT 

FOR  I  =  96  TO  126;  PRINT 

CHR*  (1);:  NEXT 

PRINT  CHR*  (27)"* 

PRINT  A*(X)  +  ".SET" 

PRINT 

PRINT  CHR*  (4)"PR»0 

POKE  40680,240:  POKE  4060 

9,253 

POKE  0,76s  POKE  1,60:  POK 

E  76,1 

GOTO  660 

REM  LOAD  FONT  ONLY 

FLAG  =  1 

GOTO  120 

REM  RESET  PRINTER 

PRINT  CHR*  (4)"PR#1" 

PRINT  CHR*  (27)  +  CHR*  (9 

9) 

PRINT  CHR*  (4)"PR«0" 

GOTO  660 

REM  DEMO  ROUTINE 

DATA   76, 48, 3, 0, 0, 0, 0, 0^ 1 

41, 144, 192,96,41, 127, 16,2 

40, 169,0,133,0, 169,64,160 

, 0, 177, 0, 106, 145, 0, 102, 2, 

200 

DATA  192,0,208,244,165,2, 

32, 0, 3, 198, 3, 200, 233, 96, 0 

,0,72,173,153,192,41,48,2 

01, 16,208,247, 104, 141, 152 

,192,96,240 

DATA  216,120,133,69,134,7 

0, 132, 71 , 166, 7, 10, 10, 176, 

4,16,62,48,4,16,1,232,232 

,10,134,27,24,101,6,133,2 

6,144,2 

DATA  230,27,165,40,133,8, 

165,41,41,3,5,230,133,9,1 

62, 8, 160, 0, 177, 26, 36, 50, 4 

8, 2, 73, 127, 164, 36, 145, 8, 2 

30,26 

DATA  208, 2, 230, 27, 165, 9, 2 

4,105,4,133,9,202,208,226 

,  165, 69,  166, 70, 164, 71 , 88, 

76,240,253 

0*  =  CHR*  (4) 

FOR  I  =  768  TO  919;  READ 

J:  POKE  I, J:  NEXT 

HIMEM:  150  t  256 

PRINT  CHR*  (4);"BLOAD/FON 

TLOADER/FONTS/ASCI I -  SET, A 

«8B00" 

HIMEM:  136  t    256 
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fl2  670   POKE   6,0s    POKE    7,139 

&4   6B0   HQR2 

CI   690    PRINT   CHR*    (41  ;  "PR#   A«340 
■t 

DF  700   GDSUB    1070 

S6  710    X    =    1 

97  720  VTAB  16s  PRINT  "NEXT  SET 

IB  ";A*(X>;".SET" 
42  730  AS(U  =  "APL" 
F6  740  HIMEM:  150  *  256:  D»  =  CHR 

S  {4) 
U   750  PRINT  D*; "BLOAD/FONTLOADE 

R /FONTS/ " A* ( X) " , SET, A»aS0 

0.. 

4?  760  HIMEM:  136  »  256 

42  770  VTAB  5:  PRINT  A*(X)  •♦•  ".S 

ET" 
BD  780  POKE  6,0:  POKE  7,136 
ift  790  VTAB  8:  FOR  I  =  32  TO  63: 

PRINT  CHR»  (I);:  NEXT 
E7  800  PRINT 
66  810  VTAB  10!  FOR  I  =  64  TO  95 

:  PRINT  CHR*  <I>; s  NEXT 
B   820  PRINT 
21  B30  VTAB  12:  FOR  I  ^  96  TO  12 

7s  PRINT  CHR*  (I);:  NEXT 
£F  840  PRINT 

M   850  POKE  6,0:  POKE  7,139 
A2  860  BET  KY* 
M  070  IF  KY*  =  CHR*  (13)  THEN  1 

010 
Bl  880  IF  KY*  =  CHR*  (69)  THEN  1 

040 
30  890  IF  KY*  =  CHR*  (80)  THEN  G 

OTO  120 
10  900  IF  KY*  =  CHR*  (76)  THEN  G 

OTO  480 
Fl  910  IF  KY*  =  CHR*  (8)  THEN  97 

0 
D3  920  IF  KY*  =  CHR*  (67)  THEN  5 

10 


53  930  IF  KY*  ^  CHR*  (21  >  THEN  9 

50 
24  940  GOTO  860 
ft7  950  X=X+1;  IFX>NU  THEN 

X  =  1 
Pt^   960  GOTO  980 
16  970  X  =  X-1:  IFX<  1  THEN 

X  ■  NU 
59  980  VTAB  16:  PRINT  " 


ft7  990  VTAB  16:  PRINT  "NEXT  SET 

IS  ";A*<X) ;"-SET" 
D7  1000  GOTO  860 
CI  1010  HOME  :  CALL  -  3092:  80SU 

B  1070 
K  1020  VTAB  16s  PRINT  "NEXT  SET 
IS  ";A*(X)|"-SET" 
1030  SOTO  740 
1040  REM  END 


"COPYRIGHT 
PUBLICATI 


DE 
FF 

34  1050  PRINT  CHR*  (4)  "PR#0'* 
CI  1060  TEXT  s  END 
B7  1070  VTAB  2:  PRINT 
1987  COMPUTE! 
ONS" 

59  1075  VTAB  3s  PRINT  " 

ALL  RIGHTS  RESERVED" 
IE  1080  VTAB  20:  PRINT  "USE  <-  - 

>  TO  MOVE  FORWARD  OR  BAC 

KWARD" 
5D  1090  VTAB  22:  PRINT  "'Return' 

"-Select  Font  'L'-Downloa 

d  Font" 
23  1100  VTAB  23:  PRINT  "'P'-Prin 

t  Font  'C -Clear  Font   ' 

E'-End" 
D7  1110  RETURN 
41  1120  REM  READ  FONT  NAMES 
49  1130  DIM  A*(60):NU  =  0 
ih   1140  D*  =  CHH^    (4) 


4E  US0  PR* 


■  /FONTLOADER/FONTB 


•;PR*i",TD 


A7  1160  PRINT  D*"OPEN 

B7  1170  PRINT  D*"READ  " ; PR* 

B7  1180  INPUT  N*:  REM  READ  DIREC 

TORY  NAME 
EE  1190  INPUT  T*s  REM  READ  COLUM 

N  TITLES 
69  1200  INPUT  L*:  REM  READ  BLANK 

LINE 
DA  1210  INPUT  AA*s  REM   READ  FIL 

E  NAME 
D9  1220  NU  =  NU  +  1 
BC  1230  A*(NU)  =  AA* 
EB  1240  IF  AA*  <  >  ""  THEN  GOTO 

1210 
E9  1250  NU  =  NU  -  1 
21  1260  INPUT  B»:  REM  READ  BLOCK 

COUNT 
fll  1270  PRINT  D*; "CLOSE  ";PR* 
Af  1275  TEXT  :  HOME 
»1  1280  VTAB  12:  HTAB  13s  INVERS 

E  s  PRINT  "ANALYZING  DAT 

A":  NORMAL  s  VTAB  li  HTA 

B  1 
IE  1290  FOR  I  =  1  TO  NU 
49  1300  A*(I)  =  LEFT*  <  A*  CI),  15) 
25  1310  IF  RIGHT*  (A*{I),1)  =  " 

"  THEN  GOTO  1330 
72  1320  GOTO  1350 
81  1330  A*(I)  =  LEFT*  (A* (I), 

N  (A*(I>)  -  1> 
Aft  1340  GOTO  1310 
BF  1350  A*  (I)  =  LEFT*  (A*  CI), 

N  (A*(I))  -  4> 
A4  1360  A*  (I)  =  MID*  CA*(1>,2,  L 

EN  (A*(I))) 
4£  1370  PRINT  D*"FRE" 
91  1380  NEXT  I 
FB  1390  RETURN  ® 


LE 


LE 


PROFESSIONAL 
HANDICAPPING  SYSTEMS 


^PROFESSIONAL SERIES   "' 

PROFESaOMAL  KAM>ICAPPlNG  TOOtS  bom  PROF.  XiNES 

Tht  Sew  PBoriasTO?«AL  BERics^"  Scrtwarc  (oiJhtL  Strtoua  Handicapper; 


^- 


/ 


/J/ 


sff- 


•  MJtU-PnjAii**yrti^*<  , , . »1-49,95 

Complrlf  ract  iinnlyais  for  Ihe  sophlsUcated  handlcapper  with 
single  screen  input,  holclinf^  tanks  lo  check  entries,  powerful  use  of  30 
varlabka  in  data  m^nipulallon,  complete  "HELF*  funciions.  and  more. 

.  AnalyitoMDdidc™ S249,9& 

Our  comprehensive,  full  Teatured  package  contains  Mlnl'Fio  Ans- 
lyiti  plus  bettlnfl  analyse*,  money  manoaers.  post  position  adjusters, 
fractional  adjusters.  imjltt-trocH  alillUics.  watch  Ust«.  end  on-screen 
bettinjE;  phJIosphy. 


s  \'\9.m 

Uslrifi  llntiir  rcilresslon,  Ihia  module  regresses  out  factors  rd-Ulng 
to  wlnnliifi  animalh  and  then  automat  iciUly  rec:ikul:ilc4  tlie  wdglitlnri 
formula  as  successive  races  are  analyiicd  to  dtrlve  the  most  precise 
romrtuia  possible,  dramatically  Increasing  win  percentage! 

^3SW    lor    1 9B7       BtiL  cujjve  analv^'s^    c lister  analysis 


llttfraSSIOWALLOTirKV/LOTTXy^,      i  149,95 

Cut  ling  edge  analyses  far  the  scrluui  professional.  Contains  Bell 
Curve.  Central  Tcrukncj-,  Cluvlrr  Annl>'SJ;s,  and  17  Dlmllrov  Syslcms, 
for  complete,  high  accuracy  a[Ta]>-s)s  of  t^oUery  or  Lotto. 


|//f.V'/' 


^D^ 


Cumuljln-e  Slal* 
L.a&l  4  u'crlu 


Rami 


■■T  Pi-iv* 


^^ 


^^ 


FROFESSlONM.SOUESFOOraALL''' S  109.95 

A  Hcxiblc.  hl(;h  prrfomvance  fool hn  11  auul>-<its  with  eomplete  buill- 
m  schedulinfj,  rxceUrnt  file  capacity,  single  input  for  two  teams,  and 
high  accuracy;  contains  predictors  for  team  scores,  ovcr/undrr.  non- 
bt«.  rtgular  bets  and  supcrbels  Iht  repression  analysis  Is  adjustable  to 
0yt  results  based  on  any  number  cf  prt^lous  weeks. 

BOOOKIEBlJSrESf-^  FOOTBALL APCALIfSB 1 149.95 

A  high  accuracy  football  analysis  using  21  separate  and  struclurcd 
analyses  and  a  complete  daiabase  of  all  NFL  games  from  197S  to  19S6  to 
prrdlcl  the  spread  winner. 

Terms:  Free  shipping  all  software,  Add  *G  00  COD  /  edOO  Vf*S  Blue  / 
$9,00  International  delivery  /  ID  reslderita  add  5%  Allow  3  weeks  when 
paid  by  personal  check,  Pncc*  atcffc  are  for  cash  or  money  order  only. 
Add  3%  for  Visa.  MaslerC  barge,  and  AM  EX.   FTlcrs  subject  to  chanfit. 

Mami  more  progranis  mxiilahle. 
Call  today  for  a  copy  ojoiir  FREE  CATALOG! 


Public  Domain  &  User  Supported  Software 


NEW  TOP  TEN  fOR  COMMODORE  64 

The  64  G€LD  Ubrary  ^5.  OWDtSK 

□  1 05  ARTIST  SJCOCHBOOK  drawing  programs 
G  106  GREAT  AMERICAN  NOVEUSTS  wortl 

processing 
n  107  PHONE  CONNECTIONS  communicalions 
D  lOa  SPACE  WARS  space  games 
rj  109  DUNGEONS  &  DRAGONS  texl 

adventures 
QUO  HOME  ORCHESTRA  Instrument 

Sim  u  tat  ion 
Dill  JUKE  BOX  prerecorded  songs 
G  1 1 2  EINSTEIN'S  FAVORITES  advanced  math 
G  11 3  PONZOS TUTOR  programming  from 

BASIC  to  machine 
D  1 14  ELECTROMIC  SECRETARY  filehandling 

utilities 
NEW  TOP  TEN  FOR  IBM      $6.QQfDt$K 

PC-SIG  Authorized  Dealer 
Q  005  PC-FILE  111.  V4  labels,  forms,  and  more 
G  078  PC-WRITE  v,2.165  popular  and  powerful 
G  273  BEST  UTiUTIES  print  spooler,  file 

search,  more 
[  )  274  BEST  GAMES  packman,  breakout. 

wizard,  more 


NEW  TOP  TEN  FOR  APPLE  tSM/DfSK 

f]  037  FREEWRITER  word  processor  (Apple 

II  t  needs  paddfes) 
L  J  038  BUSINESS  HOME  ,MANAG£MENT 

checkbook,  calculator,  more 
a  039  BEST  OF  BUSINESS  general  ledger, 

payroll,  much  more 
n  056  BANKh  SYSTEM  check  balancer,  write 

fi  pnnt  checks 
[  .1  057  OMNI  FILE  data  base  with  instructions 
G  064  BEST  OF  EDUCATION  math  drills, 

spelling,  typing,  etc 
G  085  BASIC  MATTH  DRILLS  Iractons, 

multiple  choice,  work  problems 
11  118  GAMES  fast  action  space  arcade  games 
G  195  WSSTIME,  a  potpouni  ot  programs 
I  I  213  BEST  UTILITIES  diskcat,  krunch, 

diskcheck.  diskmap,  etc. 
NEW  TOP  TEN  FOR  MAC    $3MfOlSK 
r  ]  005  CODE  CRACKING,  FEDIT  edit  file 

blocks  in  ASCII  or  nex 
L]  006  ResED  and  ReED  edit  menu  bars, 

icons  and  I D.  num&ers 
n  007  SWITCHER  edit  multiple  Microsoft 

BASIC  files 


LJ  293  ARCADE  GAMES  (color  graphics  requiredl  G  029  COMIWUNICATIONS  Red  Ryder,  MacTep 

G  037  SLIDE  SHOW 
I  1  039  FONTS  Font  catalog 
G  045  DESK  ACCESSORIES  MinififKler,  timer 
Q  062  GAMES  Dungeons  ot  doom,  base  ball 
n  067  GAMES  Billiartjs,  volleytia;!,  juggling 
r;  OaS  best  of  mac  MacWorld  £6 


[  ]  405  DESKMATE  more  than  a  sidekick 
G  457  GREATEST  ARCADE  the  best  of  the 

best  games 
G  528  NEW  YORK  WORD  sophisticated  word 

processing;  1  of  2 
0  529  NEW  YORK  WORD  2  of  2 
G  557  PINBALL  ALLEY  from  simple  to 

complex  pinball  games 

Add  S4  shipping  &  handling  per  order.  CA  residents 

add  6.5%  sales  la* 
Amount  enclosed  S -  n  Check  r  ViSA  n  MasterCard 

Card  No „, 


Signature  _ 
Phone  {_ 

Name 

Address  _ 
City 


.  Exp  Date  - 


PUBLIC  DOMAIN  SOFTWARE  EXCHANGE 
Authonzed  Dealer 

Call  toll  free  8Q0-431-6249 
in  Calif.  415-952-1994 

BUCKSHIP 


_  State  . 


.Zip. 


COMPUTER  SUPPLY 
PQ  Box  883362 
San  Francisco.  CA  94186 


News  &  Products 


Commodore  Peripherals 

Two  peripheral  systems  for  the  Com- 
modore 64  have  been  announced  by 
Computer  Specialties  (CSI). 

The  STIOC  is  a  ten-megabyte  hard 
drive  system  that  is  compatible  with  the 
Commodore  8050,  8250,  4040,  and 
1541  drives.  It  features  unlimited  direc- 
tory space,  154  tracks  with  256  sectors 
per  track,  IEEE  and  serial  interface, 
built-in  diagnostics  for  sector  errors, 
built-in  backup,  an  external  format  dis- 
able switch  to  prevent  accidental  era- 
sure, and  an  external  device  switch.  The 
internal  drive  read/ write  transfer  rate  is 
five  million  bps,  and  the  track- to- track 
access  time  is  three  milliseconds.  The 
STIOC  has  10,092,544  formatted  bytes 
and  a  16,000-word  DOS. 

The  C-64  Power  Plus  combines 
surge  protection  with  power  supply  for 
your  Commodore  64.  It  has  one  on/off 
control  to  turn  on  your  computer  and 
three  peripherals  at  once.  There  is  a 
single  AC -switched  power  supply,  and 
the  short  circuit  current  is  limited  to  .75 
amps  for  DC  power.  There's  also  over- 
current  protection,  over-temperature 
protection  that  starts  at  56  degrees  C, 
surge  protection  up  to  470  volts  AC,  AC 
fuse  protection  externally  mounted, 
and  over-voltage  protection  to  prevent 
burnout. 

Suggested  retail  price  for  the 
STIOC  hard  drive  is  $895,  and  the  Pow- 
er Plus  costs  $59.95.  CSI  also  offers  a 
variety  of  other  peripherals  for  the 
Commodore  64, 

Computer  Specialties,  P,0.  Box  171 B, 
Melbourne,  FL  32902-1718 
Circle  Reader  Service  Number  200. 


Interactive  Comics  On  Ttie 
Apple  il 

Accolade  has  released  Accolade's  Com- 
ics, an  interactive  comic  book  for  Apple 
II  computers.  Comprised  of  three  disks 
and  retailing  for  $44.95,  the  program 
features  two  distinct  themes  and  doz- 
ens of  major  and  minor  story  lines  in- 
corporating eight  arcadelike  games.  Its 
main  plot  follows  a  spy  named  Steve 
Keene,  whose  mission  is  to  thwart  evil 
plots  for  the  chief  of  Spystuff,  Inc. 

Unlike  text  adventures.  Accolade's 
Comics  offers  the  experience  of  reading  a 


comic  book  on  a  computer  screen,  com- 
bining detailed  graphics  and  humorous 
animation.  The  player  determines  the 
direction  of  the  story  by  continually  se- 
lecting from  a  series  of  possible  answers 
to  questions  asked  of  Keene;  some  are 
dead  ends,  and  others  lead  the  player  in 
more  fruitful  directions. 


Accolade's  Comics  is  an  interactive 
computer  comic  book  available  in  Com- 
modore  and  Apple  formats. 

The  first  theme  revolves  around 
the  kidnapping  of  Professor  Zoron  Far- 
ad, a  Nobel  Prize  winner.  The  second 
focuses  on  a  scheming  underworld 
character  named  Zardo,  who  has  devel- 
oped a  system  by  which  fire  hydrants 
reproduce,  thereby  getting  people  to 
park  in  garages  instead  of  on  the  streets. 

Accolade  has  also  announced  a 
Commodore  64  version  of  the  program, 
set  to  retail  for  $39.95. 

Accolade,  20813  Stevens  Creek  Blvd,, 
Cupertino,  CA  95014 
Circle  Reader  Service  Number  201. 


Professional  Keyboards 
For  Macintosh 

DataDesk  International  has  announced 
two  high-performance,  full-function 
keyboards  for  the  Apple  Macintosh:  the 
MAC  101/ ADB  and  the  MAC-101. 
Both  keyboards  use  the  industry  stan- 
dard 101-key  layout,  have  a  full  com- 
plement of  function  keys,  and  are 
designed  to  meet  the  high-speed  data 
input  needs  of  corporate  word  process- 
ing, spreadsheet,  and  desktop  publish- 
ing applications. 

The  MAC  101/ADB  takes  advan- 
tage of  the  features  of  the  new  Macin- 


tosh II  and  Macintosh  SE  computers.  It 
has  built-in  Apple  DeskTop  Bus  con- 
nectors, which  allow  daisy-chaining  of 
up  to  16  input  devices,  including  a 
mouse,  graphics  tablets,  and  joysticks. 
The  MAC-101  is  designed  for  use  with 
the  installed  base  of  Macintosh  com- 
puters. Both  keyboards  are  bundled 
with  a  macro-creating  accessory  pro- 
gram. They  also  take  particular  advan- 
tage of  new  Macintosh  software,  like 
Microsoft  Word  3.0, 

In  addition  to  the  15  function  keys, 
both  MAC-101  keyboards  offer  a  sepa- 
rate numeric  pad,  extra-large  RETURN 
and  SHIFT  keys,  two  command  and 
option  keys  for  ease  of  operation  with 
either  right  or  left  separate  cursor  clus- 
ter in  the  industry-standard  inverted  7 
arrangement,  six  separate  file/edit 
keys,  a  separate  dedicated  cancel  key, 
keyboard  status  indicator  lights,  and 
multikey  rollover. 

Each  keyboard  is  available  for 
$169,95. 

DataDesk  International,  7650  Has- 
kell Ave.,  Van  Nuys,  CA  91406 
Circle  Reader  Service  Number  202. 


Disk  Utilities  For  Commodore 
1571  Drive 

Free  Spirit  Software  has  released  a  new 
utilities  disk  for  the  Commodore  128 
computer  and  1571  disk  drive. 

Super  Disk  Utilities  includes  two- 
drive  and  single-drive  backup;  File  Un- 
scratch.  Create  Autoboot,  Lock  and 
Unlock  Files,  and  Write-Protect  utili- 
ties; disk  editor;  CP/M  Plus  disk  back- 
up; and  the  ability  to  print  in  either 
hexadecimal  or  ASCII  to  any  sector  on 
disk.  Many  other  utilities  are  included, 
many  of  which  also  work  on  the  1541 
drive. 

Super  Disk  Utilities  is  available  for 
$39.95. 

Free  Spirit  offers  a  varied  line  of 
programs  for  the  Commodore  64,  in- 
cluding Super  64  librarian,  a  disk  cata- 
loging and  library  system  for  the  64  and 
1541  drive  ($29.95);  The  Weapon  of 
Choice,  a  text  adventure  game  ($29.95); 
Wheel  &  Deal,  a  fast-paced  real  estate 
game  (19.95);  Fun  Biorhythms,  a  pro- 
gram that  lets  you  print  personalized 
biorhythm   charts  using   Commodore 
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and  Commodore-compatible  printers 
($9.95);  and  Strider's  Computer  Clas- 
sics, a  new  series  of  classical  music 
disks,  each  of  which  contains  about  one 
hour  of  classical  music  and  40  screens 
of  commentary  ($9.95  each). 

Free    Spirit    Software,    538    S. 
Edgmwod,  LaGrange,  IL  60525 
Circle  Reader  Service  Number  203. 


Desktop  Organizer  For  IBM 
PC  And  Compatibles 

First  Avenue,  a  desktop  organizer,  helps 
save  time  as  well  as  simplify  and  orga- 
nize your  day  better  through  its  accessi- 
ble menu,  organizer,  and  communication 
features. 

The  Desktop  Organizer  features 
include  an  autodialer,  memo  pad/letter 
writer,  to-do  lists,  directory,  index  card 
catalog,  and  calculator.  The  Software 
Librarian  lets  you  easily  load  a  program 
from  your  software  library  when  cata- 
loged within  the  library  function.  And 
the  Micro  Networker  allows  you  to  con- 
nect up  to  five  computers  together  to 
perform  four  functions:  electronic  mail, 
file  transfer,  phone-message  handling, 
and  schedule  updating. 

First  Avenue,  available  for  MS- 
DOS  machines,  retails  for  $69  (copy- 
protected) or  $99  (unprotected). 

Times  Square  is  an  add-on  organiz- 
er-to-go  that  makes  work  done  within 
First  Avenue  portable;  it  includes  soft- 
ware, a  binder,  and  insert  tabs  for 
$29.95. 

CANAL  Systems,  5230  Clark  Ave., 
lakewood,  CA  90712 
Circle  Reader  Service  Number  204. 


New  Graphics  Disk 
From  Epyx 

Epyx  has  introduced  a  new  collection  of 
graphics  compatible  with  the  popular 
packages  Print  Shop,  PrintMaster,  IBM 
PrintMaster  Plus,  and  all  other  print 
packages  that  accept  fonts  and  borders 
from  other  disks.  Geared  to  educational 
applications,  Graphics  Scrapbook  Chap- 
ter III:  School  offers  art  for  newsletters, 
banners,  flyers,  cards,  and  posters.  It 
covers  a  wide  variety  of  subjects,  in- 
cluding geometry,  drivers'  education, 
student-body  elections,  band  practice, 
school  plays,  cheerleading  tryouts, 
dances,  fund-raisers,  rallies,  gradua- 
tion, and  more. 

The  program  is  available  for  Com- 
modore 64,  Apple  II  series,  and  IBM  PC 
and  compatible  computers.  (Epyx  does 
not  set  suggested  retail  prices  for 
products.) 

Epyx,  600  Galveston  Dr.,  RO.  Box 
8020,  Redwood  City,  CA  94063 
Circle  Reader  Service  Number  205. 


The  ST  Solderless  RAM  adds  up  to  4  megabytes  to  the  Atari  ST 


RAM  Expansion  For  The 
Atari  ST 

A  new  1-4  megabyte  upgradable  RAM 
add-on  has  been  announced  by  the  E, 
Arthur  Brown  Company  for  the  Atari 
ST.  The  unit  features  solderless  plug-in 
installation,  and  comes  with  enough 
RAM  to  upgrade  a  520ST  to  1  mega- 
byte. Upgrading  to  2,5  and  4  megabytes 
is  simply  a  matter  of  plugging  1 -mega- 
byte RAM  into  the  empty  sockets. 

Suggested  retail  price  for  the  ST 
Solderless  RAM  is  $199.95. 

E.  Arthur  Brown,  3404  Pawnee  Dr,, 
Alexandria,  MN  56308 
Circle  Reader  Service  Number  206., 


DLM  Educational  Software 

DLM  has  released  Commodore  64  and 
Apple  II  versions  of  the  new  deluxe 
package  for  its  Create  with  Garfield,  a 
program  for  designing  and  printing  car- 
toons based  on  the  popular  Garfield 
cartoon  character.  This  version  contains 
two  disks  (program  and  graphics  li- 
brary) that  offer  special  features,  in- 
cluding more  than  200  pieces  of 
artwork;  a  wide  variety  of  typefaces  for 
writing  captions  and  stories;  color 
printing  capabilities;  and  an  electronic 
comic  strip,  in  which  cartoons  move 
continuously  across  the  screen.  The 
program,,  which  was  designed  for  both 
the  home  and  school  markets,  offers 
users  the  chance  to  create  their  own 
posters,  cartoons,  labels,  invitations, 
and  other  similar  items.  The  original 
version  is  available  for  $29.95,  and  the 
deluxe  version,  for  $39.95. 

DLM  has  also  announced  Teddy 


Bear*rels  of  Fun,  a  new  two-disk  pro- 
gram for  the  Commodore  64  and  Apple 
11  family  that  makes  it  easy  for  both 
youngsters  and  adults  to  design  and 
produce  charming  teddy  bear  artwork. 
It  contains  more  than  200  graphics,  in- 
cluding teddy  bear  characters,  back- 
grounds, scenes  and  props,  as  well  as  a 
variety  of  borders  and  typefaces  for 
writing  stories,  messages,  and  captions. 
Suggested  retail  price  is  $39.95. 

Decimal  Discovery  and  Fast-track 
Fractions  introduce  DLM's  new  Inter- 
mediate Math  Series,  modeled  after 
similar  DLM  programs  designed  to  de- 
velop other  skill  areas.  The  programs, 
available  for  the  Apple  II  family,  retail 
for  $46  each. 

DIM  Teaching  Resources,  One  DLM 
Park,  Allen,  TX  75002 
Circle  Reader  Service  Number  207. 


Clip  Art  For  Atari  ST 

More!  Graphics  ST  is  a  collection  of  128 
icons,  symbols,  letters,  and  other  clip 
art  that  can  supplement  many  other  ST 
graphics  programs,  including  Print- 
master,  Printmaster  Plus,  DEGAS,  DE- 
GAS Elite,  Typesetter  Elite,  PM  Interface, 
and  Publishing  Partner.  Suggested  retail 
price  for  the  Atari  ST  version  is  $14.95. 

An  eight-bit  Atari  version  that  of- 
fers 128  icons  and  11  screen-magic  files 
compatible  with  Print  Shop,  PS  Inter- 
face, and  compatible  programs,  is  avail- 
able for  $12.95. 

(When  ordering  direct,  add  $3 
shipping  and  handling  charge.  Add  $2 
more  for  C.O.D.  orders.  California  resi- 
dents add  6%  tax.) 
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iartgrid^  Hcii^ 


Extended  HoUrJa    SAT  It a^m^*5p,m/    CST 


COMMODORE  PC-10 

INCLUDES 


5t2K  RAM 
360K  D/S  DRIVE 
CGA  BOARO 


PARALLEL  &  SERIAL  I/O 
GW  BA5FC  AND  MS  COS 
SIDEKICK  BY  BORLAND 


1  YEAH  WARRANTY 


S679 


COMMODORE  PC10-2 

INCUUDES 

640K  RAM  PARALLEL  fi  SERIAL  1/0 

2-360K  D/S  DRIVE  GW  BASIC  AND  MS  DOS 

CGA  BOARD  SIDEKtCK  8Y  BORLAND 

1  YEAR  WARRANTY 

$819 


COMMODORE  TTL  GREEN 
MONITOR. $99.95 

ZUCKER80ARDS  (Wade  In  USA) 

CLOCK    CALENDAR- , 49.95 

256K  EXPANStON  BOARD 79.95 

MONO  GRAPHJCS  BD  (HERCULES  COMR). .  .  ,  .99.95 
COLOR  GRAPHICS  BD  (CGA) 99,93 


^JiRiNTERSEXTRftV^GANzT 


PANASONIC 

ParMsonlc  10804  1» 

Parw*onlc  1&91I 259 

P*nAK)nte  1M2t .34* 

PmnMonk3l3l  , , 279 

Pinttonic  31S1 40« 

Panaionlc  1592 ,419 

Pinatonlc  iSflS _539 


OKIDATA 

OWd«tl120... 215 

OkMati  Ii2 249 

Okldaii  192+   369 

Olild>yig3+    ,.559 

Okkti1«2fl2£   .449 

OkktetAjsaE S» 


EPSON 

LXiS.... 219 

F3CS8E...........,..3M 

EXeOO... 479 

EX  1000 629 

FX  2ae£ 569 

UaWM) 519 

LQIOOO ---.729 

LQ2500...,- 1149 


STAR  MICRONiCS 

NX.10 Cair 

NHO Call 

NP-10 Call 

NX*15... 339 

N0.1S 449 

NR-15 .539 

Poiwrtyp*.  . 1S9 

NB  24/15  (24  Wlf^)  . ,  , .  Call 


CANON 

CAHON  A>SO  .........  279 

CANON  A-55 389 

CANON  An80......... 349 


SEJKOSHA 

SP-1B0 

SP-IBOTC . 
5M0OOVC 
Sf>-1000A. 
SP-12M.- 


169 

169 

165 

199 

, 209 


{IMNUIUU  t&OO  SHIPPIWQ  IN 
COHTINENTAL  USA} 


BROTHER 

BROTHER  1009 139 

BROTHER  1509...,,..  379 

BROTHER  1709 469 

BROTHER  HR  35 749 

BROTHER  2024  LO....  SI  9 
TWIN  WRITER  5 ..639 


COMMODORE  64/t28  SUPER  PRlNTERIPAGKftGES 


NX-10  PRINTER 

ft 

XETEC  SUPIEU  GRAPHIC 

fNTERFACE 

$259 


PANASONIC  10801  PftlfSTTER 

ft 

XETEC  SUPER  GRAPHIC 

INTERFACE 

S249 


PANASONIC  10911  PRIfSITER 

ft 

XETEC  SUPER  GRAPHIC 

INTERFACE 

5309 

II     I  nw- 


SEIKOSHA  SP1000VC  PRINTER 

WITH 
BUILTIN  GRAPHICS  JNTERFACE 

$165 

MINIMUM  18.00  SHIPPING 


-i^'i    ATARI  XE/XL  SUPER  PmNTER  PACKAGES 


NX-10  PRINTER 

ft 

SUPRA  1150  INTERFACE 

S259 


PANASONIC  fOeOI  PRINTER 

ft 

SUPRA  1150  INTERFACE 

S249 


PANASONIC  10911  PRINTER 

ft 

SUPRA  1150  INTERFACE 

S309 


PANASONJC  10921  PRINTER 

ft 

SUPRA  1150  INTERFACE 

$379 


JSOPER  GOMPyTEFtlRACKAGES:: 


ATARI  130XE  COMPUTER 

$134 

(UMrrED  TO  FIRST  50  ORDERS] 
COMMODORE  126  COMPUTER 

$239 

1571  DISK  DRIVE 

$239 


COMMODORE  64C  COMPUTER 

WITH  GEOS 

$159 

COMMODORE  128  PACKAGE 

•COMMODORE  128  COMPUTER 
•1571  DISK  DRIVE 
•1902  RGB  MONITOR 

$749 

fUMlTEO  TO  FIRST  100  ORDERS] 


COMMODORE  64C  PACKAGE 

•COMMOCMDflE  64  C  COMPUTER 
•1541C  DISK  DRIVE 
•  1  SO 2 C  MONITOR 
•OEOS 

PRICE  TOO  LOW  TO  AOVERTI8KI 

ATARI  io4orr 
SYSTEM  PACKAGE 

^INCLUDING     RGB     OR     MONOCHROME 

MOhftTOR,    MOUSE,    DOUBLE-SIDEO    DISK 

DRfVE,  BASIC,  TOS  ON  ROM,  AND  BUILT-IN 

POWER  SUPPLY 

•FULL     MANUFACTURER'S     WARRANTY 

APPLIES 

CALL  FOR  LATEST  PfUCB 


ATARI  520ST  SYSTEM  PACKAGE 

•INCLUDING  RGB  OR  MONOCHROME  MONITOR, 
MOUSE.  DISK 

DRIVE,  BASIC  TOS  ON  ROM,  AND  RF  MODULATOR 
•FULL  MANUFACTURER'S  WARRANTY  APPUES 
CALL  FOfl  LATEST  PmCU 

AMIGA  SYSTEM  PACKAGE 

'AMIGA  ItMW COMPUTER 
«  AMIGA  iaeO  MONITOR 

$849 

FACTORY  REHEWED 

OKIMATE  20  «.  PLUG   N  PRriSfT 

INTERFACES  AVAILABLE  FOR   APPLE'AIARI  ST 

AMIGA'IBM'C-€4^2a 

$199 


MISCELLANEOUS  HARDWARE 


COMMODORE  64/128 

1541C  Disk  Drlv« .Call 

1670  Modem  . . , .11B 

135t  Mouse 44.95 

1750  Ram  Expander 159 

1902  RGB  Monitor .279 

Xetoc  SujMf  Graphic ft9.eS 

Avatox  1200  HC  Modem ,125 


ATARf  XE«XL*400*S00 

1050  Disk  Drive 135 

RR.  Conr^ecUon S2.95 

Animation  Station 49.95 

Atari  XM-301 32.95 

Supra  nSO  Interface Call 

flSO  Interface , ,C«1l 

US  Doubler , _  . 49.95 

Graphic  At  fnlertsce 39.95 

Avabx  1200  HC  Modem 125.00 


ATAR[  520ST*1O4OST 

SH  204  20  MEG  Hard  Drive .Call 

SF3t4  DS/DD  Disk  Drtve Call 

Supra  20  MEG  Hard  Drive 559.00 

104o  Dust  Cover Call 

520  Dust  Cover Call 

ZTIme  S20 39.95 

Z-Tlme  1040 .49.95 

Avatex  1200  HC  Modem 1 25.00 

Computcreyea 1 89.00 


APPLE 

Grappler+ . .  .74,95 

Grappler+/W16K 1 19.95 

Serial  Grappler .74.95 

Mach  Jl  Joystick . .  27.95 

Mach  111  Joystick  . , ,  34.98 

CALL  FOR  OTHER 
APPLE  HARDWARE 


-  Extended 'H<Hif3M-R9a;m;-9p.m.  CSTgCOMMODORE:l64ISQPTWARE         gxlended  Hours  SAT  1l6.m.-5p.m. 


BERKLEY 
SOFTWORKS 

GEOS 37,95 

Writer's  Workshop  32.9S 

6«odex 25.95 

DeakPakI 22.95 

FontPakl. 19,95 

Goosubtish 34.95 

GeoHle 34.95 

Geocale 34.95 

Geochsrt ,..27.95 

DeshPBk2 .32.95 


ACCESS 

Msch  V-Cart 21 .95 

Leadsr  Board  .....  24.95 
Tournament  Disk  .  ,  14,95 

Executive  Disk 14,95 

WLD  Class  Lh. 25.95 

Tenth  Frame 24.95 

Famous  Couraea  . .  14.95 

MfCROPfiOSE 

Sm  Mad  130XE  section 
for  Items  and  prices. 


MISCELLANEOUS  COMMODORE  64 

Superacripl  64  . .  .  .32.95 


Final  Cartridge  ...39,95 

Sureacricy   . , 22,95 

Ultima  2 ...32.95 

Phantse  1.2 or 3   ..27,95 

Shanghai 22.95 

Ghos&Gobllns  ....19.95 

Rebel  Charge 32.95 

Supervtr  Hockey  .  ,  22.95 

Fifcon ,18.95 

FT  Boat 18.95 

Carmen-USA 29.95 

Sentry ,25,95 

XE  Alpha  MIsion  .  .  19.95 
Blue  Powder  Gry  .  .32.95 

Gunshlp 22.95 

LsAther  Goddesaes  22.95 

Moonmist .  22.95 

Hollywood  Hljlnkft   22.95 

Fbnimaster  2 29,95 

Disney  Comic  Strip  23,95 
Disney  Card&Party  23,95 
WWF  Wresting.,:.  25,95 
Thunder  Chopper    19.95 

LiP  Periscope. 19.95 

TheP«wn 25.95 

Starglldar 25.95 

Subfoolc  Football  27.95 
Rlght%lmu1a1or  U  33.95 
Subloglc  Baseball   33.95 

Printmaster 21.95 

ArtGallerylOra     18.95 


Superbasa  64   .  . .  .46.95 

Hardball ..18.95 

Print  Shop ..28.95 

P,S.  Companion  . .  .22.95 
Graph.  Lib  1,2  or  3  16.95 

Flat 19.95 

Parallax 19.95 

Uridlum ..19.95 

UcNMata 19.95 

Wizards  Crown  . . ,  27.95 
Roadwar  200D  ....  27.95 

Warship  . 39.95 

Wargame  Constr. .  .  20.95 
Shard  Of  Spring 
War  In  S.  Pacific 
Rings  Of  Zllfin  . . 
2  On  2  Basketball 

Champ  Baseball  .  . 

GFLF&otboll  ....  .22.95 
Transiormers  .....  19,95 

Gamemaker 25,95 

Accolade  Comics     24.95 

Phantaale  3 27.95 

PIrstee 25.95 

Batllecrulser  .....  39.95 
Expraaa  Raider  ...  22.95 
Reslma/Darknesa    27,95 

S.D.1 22.95 

Oefefider/Crawn  .  .22.95 
Copy  11 54 27.95 


ACABUS64 

Charlpak 25.95 

Cad-Fak 25.95 

Powerplan  ...... .25.95 

Super  C  Compiler    39.95 
Super  Pascal  ....  .39.95 

Basic  Compiler  . .  .25,95 

Forth   25.95 

Geos  Inside  &  Out  16.95 
Personal  Portfolio  25.95 
Xper  System 39,95 


SPRrNGBOARD 

Newsroom 30,95 

Certificate  Maker..  30.95 
Graphics  ExparKler  21 .95 


TIMEWORKS 

BualnesaSytems    32.95 
Word  writer/Spell  .  ,32.95 

Swiftcalc/Sideways  25.95 
Dale  Manager  II  ...25.95 

Sylvia  Porter 32.95 

Evelyn  Wood 25.95 

Sideways 19.95 

Partner  64 39.95 


Clip  Art  1  Or  3  .  . 

Clip  Art  2 

Cert.  Maker  Lib  1  . 


.18.95 

.21.95 
.21.95 


ELECTRONIC  ARTS 

Archon 10.95 

ArchonH 10.95 

Earth  Orbit Call 

Fin,  Cookbook . .  ..10.95 
Heart  Of  Africa  .  ..tO.95 
Mail  Ord.  Monsters  10.95 

Mind  Mirror tO.95 

Movie  Maker  ...  ..10.95 

Mute .tO.SS 

Music  Constf 10.9S 

One  On  One 10,95 

Plnbali  Conatr. 10.95 

Racing  Destr 10.95 

Seven  Cities  ol  Gold  1 0. 95 
Sky*ox tO,95 


.27.95 
.39.95 
.27.95 
22.95 
.19,95 


-^     EST.  1982,     yf/./., 

PO.  Box  17882,  Milwaukee,  Wf  532T7 

ORDER  UNES  OPEN 

Mon.-Fri.  9  a.m.  *  9  p.m,  CST  •  Sat.  11  am,  -  5  p.m. 

To  Order  Call  Toll  Free 

800-558-0003 

For  Technical  Info,  Order 
Inquiries,  or  for  Wise.  Orders 

414-357^181 

TELEX  NUMBER  9102406440 

(ANSERBACK  •  COMPUT  MIUW  UQ) 


ELECTRONIC  ARTS 

Super  Bould  Dash  10,95 
Touchdown  FootballlO.SS 
Ummate  Wizard .  ..10.95 
Adv.  Corvstr. . . . ,  ,.25,95 
America's  Cup . .  .  .22.95 

Arctic  Fox   22.95 

AulocJuel 31.95 

Bard's  Tale 25.95 

Bsrd'aTatell  ...  .,25,95 

ChSckamauga .23,95 

Battlefront  . 25.95 

Carriers  At  War  ...31.95 
Europe  Ablaze  .  . ,  ,31.95 
Lords  Of  Conquest  22,95 
Merblfl  Madness  .  .20,95 

EPYX 

Destroyer 22,95 

Fast  Load 22,95 

Movie  Monster 22.95 

Champ  Wrestling .  .22.95 
World  Games  . . ,  , .  22,95 
Wlnler  Games  ..  ..22.95 
Summer  Games.  .  .14.95 
Apshal  Trilogy  ..  ..14.95 


ELECTRONIC  ARTS 

Moeblua. .,  ..25.95 

Murder  Party 22,95 

Ogre. 25,95 

Pegeaus 23.95 

Reach  for  the  Star*  30,95 
Road  To  Moscow  .  .  25,95 
Robot  Rascals  .  ,  .  .25,95 

Russia 25,95 

Scrabble 22.95 

Chessmaster  2000  25.95 

Ultima  1 25.95 

Ultima  3 31.95 

Ultima  4 .....  35.95 

World  Tour  Golf  .  . .  23,95 


Vorpal  Utility  ....  .14.95 

Muftlplan 27.95 

Super  Cycle 22.95 

St.  Sporls  Basket  22.95 
St.  Sports  Baaeball  22.95 
Summer  Games  2  22.95 
Sill?  Battle  .......  22.95 


COMMODORE 
128  SOFTWARE 


Superbase  12B .  . .  .  S7.95 
Supe reed pt  128  . .  .46.95 
Wordwrlter  128  ..  .42.95 
Data  Manger  126  .  .42,95 

SwmcalcIZe 42.95 

SylvJa  Porter  128  .  .42.95 
Partner  12B   ..  .  ...42.95 

Fleet  System  4 46.95 

Perfect  Writer  .  ...49.95 
Pocket  Writer  2  ...36.9S 

Pocket  Filer  2. 36.95 

Pocket  Planner  2  ..36.95 


Basic  Comp,  126  ..39.95 

Cad  Pak  128 39.95 

Super  C  Compiler    39.95 

Cobol  128 39.95 

Super  Pascal  128 ..  39.95 
Speed  Term  128..  .25.95 

Chan  Pak  128 25.95 

Fontmaster  126  ...  36.95 

Multlplsn128 27.95 

Vlzawrite128 54.95 

Vt2aatar12e ..54.95 

Merlin  12B 69.95 


Extended  Hours  M-F  9am:-9fi :m ■  CST 


IBM  SOFTWARE 


Extended  Hours  SATl1a.m.-5p.m, 


ACTJVJSiON 

Alter  Ego 31.95 

Borrowed  Time  . . .  25.95 

Hacker  ... 11.95 

Tast  Times. .....  ,22.95 

Shanghai  .......  .23,95 

Portaf 29,95 

GFL  Football 2S.9S 

2/2  Basketball  ...  .25.9S 
CKamp  Ba»eb«ll  .  .25.95 

Ghoalbualers 11.95 

Writef 's  Ctiotce  ..  .25.95 
Planner'a  Choice .  .  25.95 

Piter's  Choice 2S.9S 

Choice  CollecUon    64.95 
Term  Paper  Wter  . ,  32.95 


SIERRA 

King's 

Quest  I,  II  or  III 31.95 

Smart  Money 32.95 

Space  Quest 31.95 

Black  Cauldron  .  .  .25.95 
HeUcoptef  Sfmul  .  .25,95 
Police  Quest Call 


BRODERBUND 

Print  Shop .37.95 

Karateka 21.95 

Graphic  Lib  1  Of  2  21.95 
P.5  Companion  ..  .31.95 

Toy  Shop ...42.95 

iVpa 31.95 

Variable  Faa at 39.95 

Fin  Independence  94.95 
For  Comment ,..,  1 24.95 
Carmen-USA  ....  .29.95 
Carmen -World  ....  25.95 


SPRrrsiGBOARD 

CerliMcato  Maker.  .38.95 
Newsroom  Pro  .  . .  .82.95 
SEE  APPLE  SECTION  FOR 
REST  OF  ITEMS  &  PRICES 

EPYX 

SEE  APPLE  SECTfON  FOR 
ITEMS  S  PRICES 


ELECTRONJC  ARTS 


Archon 10.95 

Fin  Cookbook  . . , .  10.95 
Music  Construct  . .  10.95 
One  on  One  ......  10,95 

Pinball  Constr. 10.95 

7  Cities  of  Gold  . .  .  10.95 
Super  BIderdash  .  .  10.95 

Mind  Mirror 10.95 

Amnesia. 29,95 

Gr.  Slam  Bridge  . .  .39.95 

Murder  Party 25.95 

Ogre...... 2S.95 

Radio  Baseball   .  ..25.95 

MfNDSCAPi 

Sop/Wrestle .19.95 

Indoor  Sports   . ,  .  .19,95 

Inrillratof 19.95 

Balance/Power  ,..31.95 

Sub  Mission 25.95 

Amer  Challenge   ,.25.95 

Racter 25,95 

Masterly  pe 25.95 

Crossword  Magic  .  .  31 .95 
Perfect  Score 49.95 


Scrabble . . , 25.95 

Startleet  l 34.95 

Chesamaster  ,  ....  25.95 

Ultima  III   38.95 

Ultima  IV 39.95 

Wrid  Tr  Golf  (NoAp}  34.95 
Starliight  (NoAp)  .  .34.95 
M,  Beacon  TV pf no    25.95 

Arctic  Fox Call 

Startleet  2 34.95 

Ultima  1  , 26.95 

Lords/Conquest ....  Cail 
Marble  Madness Call 

TIME  WORKS 

Wofdwriter 39.95 

Swittcalc  , 39.95 

Data  Manager  39.95 

Sylvia  Porter 64.95 

Swlttax  ...... 44,95 

Partner.. .39.95 

PC  Powerpack 77.95 


INFOCOM 

Ballyhoo 25.95 

Hitchiker  . 19.95 

Leather  Goddess .,  25.95 

Trinity 25.95 

Hollywood  Hijlnx  .  .25.95 

Moonmlat 2S.95 

Zork  Trilogy  ......  44,95 

Bureaucracy   ,..,.25,95 

ACCOLADE 

Hardball 24.95 

Mean  IB 31,95 

PS  I  Trading  Co.  .  .  .24.95 

Course  Disk 16.95 

Ace  Of  Aces 24.95 


Rings  of  Zllfin 25.95 

Kampfgruppe 39.95 

Shard/Spring 25.95 

Road  war  2000 25.95 

Phantasle 25. 9S 


MISCELLANEOUS  IBM 


SO! 25.95 

Defender/Crown  .  .25.95 
Alternate  Reality  .  .31.95 

Flight  Sim.  11 38.95 

Strip  Poker 25.95 

OrbUer 31.95 

Pawn  ..........  .29.95 

Slargtider 29.95 

7lh  Spirits  29,95 

ChnmpionGoit  ,..25.95 
Airplane  Constr  .  .  .25.95 
Confdct/Vletnam  .  .25.95 
Decision/Desert  .  .25.95 
F>15  Strike  Eagle  ..21.95 

Silent  Service  21.95 

Crusade/Europe  .  .25.95 
Gunship 22,95 

UNISON  WORLD 

Prlntmaater  . ,  .  . .  ,36.95 

Art  Gallery  1   24.95 

Art  Gallery  2  18,95 

Newamaster ......  62.95 


UniveFBeli ..47.95 

Wizardry .,39.95 

Up  Periscope 19.95 

TnunderCnopper    19.95 

Jet ..34.95 

Subiog  BasebatI  ..34.95 
SublogFbolball,.,  34.95 

Falcon 31.95 

Business  Card  Mkr.  36.95 
Bumper  Stick  Mkr,,  31. 95 

Button  Maker 31.95 

Millionaire  2 38.95 

Generic  Cadd  2.0.  .59.95 
1  sour  Portfolio  ..  .149.95 

Silk Call 

Managing/Money  119.95 

PTBoat     ,.31.95 

BL  Powder  Gray ,  .  .  32.95 

Typesetter  PC  46.95 

MegafdntPC 24.95 

Mercenary 24,95 

Tenth  Frame .36,95 

Commando 25,95 

Tag  Team  Wrest -.25.95 


Extended  Hours  M>F9a>m^'9p:m^<^TH^^^^^^^^^^^^ 


EPYX 

Sports  Basketball 
Sports  Baseball .  . 
World  Karate  . , . . 
World  Games .... 

Daatroyer 

Movie  Monster.  .  . 
Winter  Games  . . 
Summer  Games  tl 
Apshai  Trilogy  . . . 

Sub  Battle 

Epyx  Joystick  , . . 


25.95 
.25.95 
.19.95 
.25,95 
.25.95 
.25.95 
.25,95 

25,95 
,25.95 
,25,95 
,25.95 


DATASOFT 

Black  Magic 16.95 

Old  Scores 19.95 

Tobruk .22.95 

Swords^Soroery . .  .  1 9.95 
Bismarck 22.95 


ELECTRONIC  ARTS 

Age/Adventure ....  10.95 

Arthonll 10.95 

Movie  Maker 10.95 

Skyfox  , 10.95 

Adv.  Conslr. 32.95 

Artie  Fox 25.9S 

Autoduel 32.95 

Bard's  Tale 29.95 

Bard's  Tale  li 32.95 

Lord/Conquest  ...25.95 
Martjle  Madness  .  .23.95 

Moeblus .38.95 

Pegasus 25.95 

Russia 26.95 

Ultima  1 26.95 

SEE  IBM  SECTION  FOR 

REST 
OF  ITEMS  AND  PRICES 


BRODERBUND 

Alrheart 22.95 

Animate 44.95 

Print  Shop 31.95 

On  Balance 25.95 

Toy  Shop 39.95 

Type 28.95 

Science  Tool  Kit  ..44.95 
Graph  Lib  1,2  or  3    16.95 

Bank  ST  Series Call 

Carmen-World  ....  25.95 
Carmen-LISA 29.95 


DATA  EAST 

Karate  Champ 1 5.95 

Kung  Fu  Master . .  .15.95 

Commando 25.95 

Tag  Team  Wrest  , .  ,25.95 


INFOCOfW 

SEE  IBM  SECTION  FOR 
ITEMS  AND  PRICES 


MINDSCAPE 

SEE  IBM  SECTION  FOR 
ITEMS  AND  PRICES 


SPRINGBOARD 

Cerlif icate  Maker . .  3 1 .95 
Clip  Am  or  3  .,..19.95 

Clip  Art  2 ....25.95 

Certificate  Lib  1...  22.95 
Games/Children  .  .22.95 
GnpNIca  Expander     25.95 

Newsroom 37.95 

Piece  of  Cake  Matti     22.95 


APPLE  MISCELLANEOUS 


Gettysburg 39.95 

Warship 39.95 

Phantasie 25.95 

Battle/Antletnam  .  .31.95 

Phantasie  II 25.95 

Battlecruiser 39.95 

Realms/Darkness    25.95 


ACTIViSION 

Gamemaker 31.95 

Hacker  II 25.95 

Laljyrinth 19.95 

Little  Computer  ..,11.95 

Greeting  Cfard  ,,.,25,95 

SEE  IBM  SECTION  FOfI  REST 

OF  ITEMS  AND  PRICES 


Fight  Night   21,95 

HardbaSr 21,95 

PSi  Trading   21,95 

Comix  31,95 

TheHobbll ..23.95 

Up  Periscope 19.95 

TnunderC  hopper    19.95 

Alt.  Reality 24.95 

MathBlasfer 31.95 

Spell  It 31,95 

champ  Wrestling . ,  25,95 
Wizard's  Crown  . .  .25.95 
Gematonel^eaier    19,95 

Word  Attack 31 .95 

Elite 23,95 

Pawn 29,95 

Stargiider 29,95 

Gunship 25.95 

F15  Strike  Eagle  ,  ,22,95 
Silent  Service  .  , ,  ,22,95 


Smart  Money 

Sublog.  Baseball , . 
Sub  log  Football ,  ,  . 

Jet 

Space  Quest 

Animat,  Station  ,  ,  , 
Prlntmaater  +  .  .  .  . 
Art  Gallery  1  or  2  ,  , 

Publisher 

War  in  S.  Pacific  ,  , 

Star  Trek  11 

Roadwar  2000  .  .  .  , 

Phantasie  3 

Business  Card  Mkr, 
Bumper  Stick  Mkr. . 

Button  Maker 

Rebel  Charge ,  .  ,  .  . 
MigtitN' Magic  ,  .  . 
Oper  Copernicus  .  . 
Internat  Hockey .  . 


49,95 
34.95 
34.95 
27.95 
31.95 
59,95 
24,95 
18.95 
69.95 
39.95 
25,95 
25,95 
25,95 
36,95 
31,95 
31,95 
31,95 
35,95 
25.95 
17.95 


Extended  Hours  M-F  Qa^m'-^p^m:  CST         ATARI  ST:  SOFTWARE ej  Hours  SAT  11a.m>5p.m. 


ABACUS 

Taxtpro 32.95 

Oatffeve 32.95 

Text  Designer 32.95 

Assempro   ,.,,..,  39.95 

Powerplan 49,95 

Paintpro 32.95 

Abacus  Books Call 

ST  GRAPHICS 

Degas  Elite   48.95 

Easy  Draw  ...... .48.95 

Carf3-0 36.95 

Graphic  Artist  ,  ,  ,124.95 
Palntworks,  ,  , . ,  ,  .25,95 

1st  Cadd .31,95 

Aegis  Animator  ,  ,  .  48,95 

Neochrome 34.95 

Computereyes  . ,  ,  169.00 
Stereo  Cad  3D 6T,95 

ST 
TELiCOMMUNtCATIOlV 

St  Talk  Vier  2.0 18.95 

BB/ST    ., .31.95 

Flash 27.95 

LSTalk .31.95 


ST  EDUCATIONAL 

Declmel  Oungeon  24.95 
Fraction  Action  .  ..24.95 

Kinderama  , ,  . 24.95 

Read  &  Rhyme ,  ,  ,  ,24.95 
Animat  Kingdom  .  ,24.95 

Speller  Bee 31.95 

Kid  Talk 31.95 

Math  Talk .,31.95 

Firat  Shapes 31.95 

Winnie  The  Pooh,,  16, 95 

Donald  Duck 16.95 

Buzzword 29,95 

ST  DATABASES 

DBMan  ., 96,95 

Regent  Base 57,95 

Data  Manager  St  ,.48.95 
Zoomracksll  , . ,  ,  .95.95 
Superbase  Gem .  . .  94.95 

ST  WORD- 
PROCESSORS 

Regent  Word  II  .  ,.48.95 
WordwrlterSt  ,  ..,48.95 
Thunder ..24.95 


MICHTRON 

Cornerman    31.95 

Echo. 24.95 

M-Dtak 24.95 

Maior  Motion  .....  24.95 
Mlchtron  Utilities.,  37,95 

Cards 24,95 

Time  Bandits 24,95 

Pera.  Money  Mor. . ,  31 ,95 
Pinball  Factory  . .  .  24.95 
Eight  Ball  .,.;,...  18.95 

Back-Up ,  .  24.95 

Match>R)lnt 24.95 

Karate  Kid  II  ......  24.95 

GFA  Basic 48,95 

Trimbaae ,  62.95 

Space  Shuttle  2...  24.95 

M-Cache 24.95 

GFA  Draft 62.95 

Trivia  Challenge ,.,  24.95 
Joum  To  Lair  ,  ,  , .  ,32.95 
GFA  Compiler  ,..,48.95 

INFOCOM  ST 

SEE  IBM  SECTION 
FOR  ITEMS  A  PRICES 


ST  BUSINESS 

VIP  Professional Call 

SwIftcstcSt 4B,95 

Isgur  Portfolio  ,  ,,124,95 

DAC  Payroll 32.95 

DAC  Easy  Accting    44.95 
Dollars  And  Sense  64,95 

SyMa  Porter 46,95 

A-Caic  Prime 39,95 

LogistiK  Jr. 64.95 

ST  UTIUTIES 

Music  Studio 32,95 

Time  Link .31,95 

Micro  Cookbook  ..32,95 

CZDrold 69,95 

EZ  Thick G9.9S 

Write  90 ....18.95 

DeakCart 72.95 

Lib  1/Cert Maker  .,21.95 
Labeimaat  Bite  , . ,  27.95 

DESKTOP 
PUBUSHING 

Drawrite ,  ,99,95 

Publish.  Partner   .  .99,95 
Certificate  Maker .  ,31,95 


ST  ADVENTURES 

Sundog  ,  , 24,95 

Universe  11 44,95 

The  Pawn,.,  ,.,  ,  ,29.95 
Starglldar ..,,..,,  29,95 
Dungeonmaster  ,,24.95 

Ait.  Reality 24,95 

Tasa  Times 25,95 

Mercenary 24,95 

Autoduel 32.95 

Ogre 25.95 

Defender/Crown  ,,  32.95 

S,D,1 .,  . 32,95 

Balance  Of  Power  32,95 
Ultima  ill  Or  iV,  ,  ..38,95 

Portal 32,95 

Kings  Quest 

1,2  or  3 32.95 

Space  Guest 32.95 

Tracker 29.95 

Colonial  Conquest  25,95 

Roadwar  2Q0Q 25,95 

Wizard's  Crown  ,  ,.25,95 

Rings  01  Ztilln 25.95 

Phantasie  3 .25,95 

Bard's  Tile Call 

Phantae1,2of3   ..25.95 


ST  LANGUAGES 

Peraonsl  Pascal ,  ,  .49.95 
Mark  Williams  C.    114.95 

Lattice  C. 99.95 

Cambridoe  Lisp.  139.95 
LDW  Basic  ,,..,,.  44.95 
Fortran  77  124.95 


STPntNT 
UTILITIES 

Rubber  Stamp 24,95 

Printm aster  Plus  ,  ,24,95 

MegafontSt 24.95 

Art  Gallery  1  Of  2  16.95 
Typesetter  Elite  .,  ,31.95 
Pm  Interface 18.95 


ST  ARCADE  GAMES 

Winter  Gomes  . . ,  ,  24.95      Indoor  Sports 


Rouge ,  ,  ,24.95 

Super  Huey 25.95 

Mean  16 25.95 

Famous  Course  ,  , .  14.95 

Leader  Boerd 25.95 

Silent  Service  .  ,  , ,  25.95 
Flight  Simulator  II  33.95 
Champ  Wrestling..  24.95 

World  Games 24.95 

Chessmaster  2000  32.95 
Tenth  Frame ..... .24,95 

5hsngl>ial .25.95 

Micro  Baseball .  .  ,  .39.95 
WWF  Wrestling  .  ..39.95 

Skyfox ,  .  .,29.95 

Super  Cycle  . , ,  .  .  ,24.95 


,  .32.95 
,  .27.95 


F-15  Strike  EagK 
High  Roller  Sim..  .32.95 
IWoHWo  BBsketball25.95 
Deep  Space  ,,..,,  29,95 

Arena .,  ,  ,22.95 

Champ  Baseball  ,  ,25,95 

GFL  Football 25.95 

Harrier  Strike 31.95 

Sub  Battle  Sim   .,  .24,95 

Arctic  Fox   26,95 

RPV  , 24.95 

Crystal  Castles  ,  ,  .  20.95 

Gridiron  , 42.95 

Hardball 24.95 

Psion  Chess ......  36.95 

Crystal  Castles   ,  .  .20.95 


Extended  Hours  M-fr9a.m,-9p:m:   ATARI  XE/XU4QQ/8Q0  SOFTWARE-  Exiended  Houfs  SAT lla.m^-^pm^ 


BRODERBUND  INFOCOM 

Karateka. . .......  19.95      HItchlker 17.95 

Print  Shop 28.95      WIshbringer 1 1 .95 

Bank  Street  Writer  32,95      Ballyhoo   25.95 

Graph.  Lib.  1,2  or  3  16.95      Moonmlst 22.95 

P.S.  Companion  . .  .22.95  Leather  Goddess .  .22.95 

uir-DnDDnrr  Hollywood  Hijinx  .  .22.95 

MICROPROSE  zork  THIogy 39.95 

Silent  Service 22.95  y,  emt  KneruuAar 

F-15  Strike  Eagle  . .  22.95  XLENT  SOFTWARE 

Decision  In  Desert  25.95      Megafont  II .16.95 

Ken.  Approach  .  . .  16,95  Page  Oealgner ....  18.95 

Crusade/Europe  .  .25.95      Megafller 18.95 

Conflict/Vietnam  . ,  25.95      PSTntertace 18.95 

Top  Gunner 16.95      Rubber  Stamp 18.95 

Typesetter ..  .21.95 

Picture  Disk 14.95 


ELECTRONIC  ARTS 

Age  Of^ Adventure    10.95      Super  Bould,  Dash  10.95 


Archon .10.95 

Archon  11 10.95 

Fin.  Cookbook 10.95 

Mall  Ord.  Monstera  10,95 

Movie  Maker  . 10,95 

Music  Constr.   ....  10.95 

One  On  One 10.95 

Pinball  Constr. ....  10.95 

Racing  Destr. .....  10.95 

7  Cities  Of  Gold  . . .  10.95 


Touch.  Football  , . ,  10.95 
Chessmaster  2000  25.95 
Chlckaumauga  ...23.95 
Lords/Conqueat . .  .22.95 

Ogre 25.95 

Rommel/Toburk , ,  ,26,95 

Startleet  I 33.95 

Ultima  I   .,  , 27.95 

Ultima  IN  , 31 .95 

Ultima IV  ,...,...38.95 


MISCELLANEOUS  XE  /  XL  /  400  /  800 

Flight  Simulator   ,.33.95       Executive  Disk/LS    14.95 

Universe 57.95       Tenth  Frame 27,95 

Strip  Poker 21.95      infiltrator  ,  , 1 9,95 

.., Bop  'N '  Wreatie  . . ,  1 9,95 

Super  Huey 16.95 

Home  Planetarium  27.95 
Atarlwjriter  Plus  .  ,  ,39,95 
MLB  Boxscore/Stat  16,95 
Home  Accountant  30.95 
Apshai  Trilogy  .,  ,  ,16.95 
Summer  Games,  ,  ,16.95 
World  Karate 
Championship 19.95 


Micro  League 

Baseball 25.95 

Karc/Brece  Sat  , .  ,59,95 


General  Mgr.  MLB    25.95 

"_       llgf _.__ 

Hartbalf , ,  18,95 


Fight  NIghT  18.95 


Triple  Pak 14,95 

Leader  Boatd  , . ,  ,  ,24,95 
Toym.  DiskyLB   ,  ,.14,95 


Mercenary 

18  95 

Wizard's  Crown  , 

..27.95 

Gettaburg 

.  .39.95 

Warehip  ,,,,.,, 

.39.05 

Synfile 

,.32,95 

Musfcstudio;;; 

,.32,95 

,  ,22,95 

Alt.  Reality 

.,24,95 

A/R  Dungeon .  ,  , 

..24.95 

Rebel  Charge ,  ,  , 

-.32.95 

Ace  Of  Aces . ,  ,  , 

..18.95 

Battlecruiser  ,  , . 

..39.95 

Exiended  Hours  M-F  9a,m. 


•9p.m.  CST 

AMiGA  SOFTWARE 

Deep  Space 29.95 

Defender/Crown   .  .32.95 

Deja  Vu   32.95 

Deluxe  Paint  11 84.95 

Deluxe  Print 64.95 

Dei  Print  Dat  1 20,95 

Del  Paint  Dati 20.95 

Dei  PatniDat2  .  .  .20.95 

Deluxe  Video 64.95 

Deluxe  Muslc2.0..  64. 95 

DIglpaint ,44.95 

Digiview.,  ,. 149.95 

Discovry  SpeM  ....  24.95 

Dscovry  Trivia 24.95 

Oscovry  Math   . . ,  ,  24.95 

Eari  Weaver 32.95 

First  Shapes 31 .95 

Flight  Sim  2  .,.,  ,  ,34,95 


AMIGA  SOFTWARE 


Extended  Hours  SAT  11a. m: 


-5p.m/:- - ':-.-'^      ■: 

AMIGA  SOFTWARE 

Sftwks  Basic  64.95 

Sonix ,  .  64.95 

Space  Quest 32.95 

Stargiider ,  ,29.95 

Strip  Poker 25.95 

Superbase  Pera  .  .  ,  69.95 

Taaa  Times 25,95 

True  Basic 99,95 

TV  Text 62,95 

Typing  TytOf 21.95 

Ultima  3  or  4 38.95 

ViP  Profeasional    189,95 

Winnie/Pooh  , 20,95 

Winter  Games  ,  , . ,  25.95 

Worid  Games 25.95 

10th  Frame 25.95 

3D-Craphics     .    ,,32.95 


AMIGA  SOFTWARE 

AC  Basic 169,95 

Aegis  Draw 159,95 

Aegis  Animator  . .  .84.95 

Allen  FirBs 24.95 

Alt  Reality  .  .. 24.95 

CBM  Textcraft  ....  69.95 

CBM  Pascal 69.95 

CBM  Amiga  C  .  ..  .99.95 
CBM  Aaaembler . .  .  69.95 

CBM  Lisp ..134.95 

Amiga  Enhancer  .  .  1 1 .95 
Amigaterm  ......  .34.95 

Analyze  2,0  .  ,    ,  ,  ,94,95 

Arohon. ,  , 26.95 

Archon  II  . . . .  26.95 

Artie  Fdx   ..,,..  .,26.95 

Arena .22.95 

Art  Gallery  1  Or  2   .18,95 


AMIGA  SOFTWARE 

Autoduel 32,95 

Aztec  C  Develop  179.95 
Aztec  C  Commer  299.95 
Beta  nee /Power  , ,  ,32.95 

Bard's  Tale 32.95 

Best  Accnting  .  ..299,95 
Bik  Cauldron  .,  .,  ,26,95 
Bumpr  Stick  Mkr  ,  ,36,95 
Bureaucracy  . . ,  ,  .25,95 
Business  Crd  Mkr    36,95 

Button  Maker. 36,95 

Cambridge  Liap ,  ,  1 29,95 
2/2  Basketball    . 
Champion  Golf  . 
Champ  Baseball 
Chessmaster  , . .      _    . . 

DBMan 89.95 

Decimal  Dungeon    31.95 


29.95 
25.95 
29.95 
29,95 


AMIGA  SOFTWARE 

Flip  Side   31,95 

Flow 64,95 

Fortran  77 169.95 

Fraction  Action  .,.31.95 

Gaileo 64,95 

Gato ..,  ,31.95 

GFL  Football 29.95 

Goldapelt 27.95 

Grnd  Sim  Tennis  .  ,31,95 

Qraphlcraft 34.95 

Gridiron  ,. 44.95 

Impact .54.95 

Inatant  Music ....  .32.95 

Jet 34.95 

Kampgruppe 39.95 

Kid  -fiiTk 31 .95 

Kinderama  ......  .31.95 

King  Of  Chicago  ..32.95 


AMIGA  SOFTWARE 

KGQuesM,2or3    32.95 

Leader  Board 25.95 

Looistix  .........  89.95 

LPD  Filer 79.95 

LPD  Writer 79.95 

LPD  Planner 79.95 

Marble  Madnesa  .  .32.95 

Math  Talk ..  ..31.95 

Math  Wizard 31.95 

Mean  18 27.95 

MIcroleagua  BB  . .  .39.95 
Mlndwalker  .....  .34.95 

Module  2 Call 

Money  Mentor 57.95 

Music  Studio  .  . . ,  ,  32.95 

Ogre 32.95 

Online 42.95 

Orve  On  One ,...,,  26,95 


AMIGA  SOFTWARE 

Organize 62.95 

Page  Setter 89.95 

Par  Reel 79.95 

Pawn   ,  ,. 29.95 

Phantasle,  ,  ,,  ,  ,  ,.25.95 

Police  Quest 26.95 

Power  Windows  ,  ,  .54.95 
Prlntmaater  +  ,,.  ,31.95 

Prowrlte 79.95 

Publlaher 119,95 

Roadwar  2000  , . . ,  25.95 

S.D.I 32,95 

Scribble 62,95 

7  Citlea/Gold 26,95 

Shanghai 25.95 

Sllenf Sen/ice  .,  ,.25.95 

SInbad  ,.. ..34.95 

Skvfox , ,  ,  .26.95 


agSggSI  SS  S  No  surcharge  for  Mastercard  or  Visa         cs  S  9  S  SS  S 
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The    Pierstorff   Company,    131    W. 
Main  St.,  Woodland,  CA  95695 
Circle  Reader  Service  Number  208. 


New  Revision  And  Printer 
Driver  For  ST/MAC  Emulator 

Data  Pacific  has  announced  the  fourth 
enhancement  to  its  Magic  Sac,  which 
runs  Macintosh  software  on  the  Atari 
ST,  and  a  printer  driver  for  Epson 
printers. 

Revision  4.0  of  the  Magic  Sac  adds 
support  for  double-sided  (800K)  disk 
drives  and  limited  color  monitor  sup- 
port; it  also  adds  GEM-based  formatters 
and  copiers,  and  compatibility  with  Ap- 
ple's Finder  5.3/System  3.2  operating 
system  (the  latest  revisions).  It  is  avail- 
able as  an  upgrade  to  registered  owners 
for  $10;  suggested  retail  price  is  $149.95. 

The  Magic  Printer  Driver  enables 
the  Magic  Sac  to  use  Epson  printers  and 
compatibles  like  Citizen  and  Panasonic. 
It  previously  supported  only  the  Image- 
Writer.  Price  is  $45. 

Data  Pacific,   609  E.   Speer  Blvd., 
Deliver,  CO  80203 
Circle  Reader  Service  Number  209. 


Electronic  Card  File  For 
MS-DOS  Machines 

Tracker  is  an  interactive  card  filing  sys- 
tem that  locates  information  quickly 
and  easily  via  its  extensive  search  and 
update  functions.  The  program  may  be 
run  in  a  memory-resident  or  non- 
memory  resident  mode;  an  autodial 
function  is  also  included  to  provide  in- 
stant access  to  online  services  through  a 
modem. 

Searches  can  be  accomplished 
through  any  8  of  the  15  main  working 
screens.  Date-stamped  notes  may  be 
appended  to  each  file,  as  can  up  to  20 
keywords  that  can  be  used  later  to  in- 
clude or  exclude  records  from  the  four 
available  reporting  functions.  For  ex- 
ample, lists  of  people  to  contact  may  be 
produced  onscreen  with  a  couple  of 
keystrokes  as  daily  reminders. 

Tracker  runs  on  the  IBM  PC,  AT, 
ar\d  compatibles,  and  retails  for  $99. 

Adaptive  (USA),   3701    Birch   St., 
Newport  Beach,  CA  92660 
Circle  Reader  Service  Number  210. 


Clip  Art  For  Flexidraw 
And  DoodlBl 

Inkwell  Systems,  manufacturer  of  Flexi- 
draw— a  high-resolution  graphics  pro- 
gram coupled  with  an  industrial-quality 
light  pen — recently  released  The 
Graphics  Galleriaf  a  collection  of  clip  art 
and  illustrations  for  use  with  the  Flexi- 
draw or  Doodle!  graphics  programs. 
Each  volume  is  a  collection  of  clip  art 


and  illustrations  based  on  one  particu- 
lar theme;  the  first  four  are  Borders  & 
Signs,  Clip  Art  Potpourri,  Holiday 
Themes,  and  Maps  of  the  World.  Each 
disk  contains  the  Flexidrazv  format  on 
one  side  and  Doodle!  on  the  other,  and 
retails  for  $24.95.  Additional  disks  are 
planned. 

Inkwell   Systems,   P.O.    Box   S5152 
MB290,  5710  Ruff  in  Rd.,  San  Diego,  CA 
92138 
Circle  Reader  Service  Number  211. 


Mouse  Protector 

H  &  H  Enterprises  has  developed  a 
product  that  offers  protection  as  well  as 
a  new  look  for  your  computer's  mouse. 
The  MouseTop  mouse  cover  fits  most 
popular  mouse  devices,  including  those 
available  for  Apple,  Commodore,  IBM, 
Atari,  and  Tandy.  Made  from  a  silver/ 
gray  furlike  fabric,  the  MouseTop 
comes  in  two  different  looks.  One  is 
slightly  nearsighted  and  wears  wire- 
rimmed  glasses;  it  retails  for  $5.95,  The 
other  has  20/20  vision,  and  costs  $5.49. 
This  washable  mouse  cover  protects  the 
input  device  from  the  grime  of  daily  use 
in  addition  to  its  aesthetic  value, 

H&H  Enterprises,  P.O.  Box  2672, 
Corona,  CA  91718 
Circle  Reader  Service  Number  212. 


Popular  ST  Game  Now 
Available  For  IBM  PC 

Starglider,  an  extremely  popular  game 
from  Firebird  Licensees,  is  now  avail- 
able for  MS-DOS  machines. 

Starglider  puts  the  player  in  com- 
mand of  an  airborne  ground  attack  ve- 
hicle which  must  ultimately  do  battle 
with  the  starship  Starglider.  Cunning, 
skill,  and  quick  reflexes  are  all  required 
to  succeed  in  this  deep-space  conflict; 
3-D  animation  and  challenging  maneu- 
vers are  arcade-quality.  The  program 
comes  with  a  flight  training  manual, 
full-color  poster,  key  guide,  and  a  64- 
page  novella  that  sets  the  stage  for  the 
action.  The  MS-DOS  (and  upcoming 
Amiga  and  Apple  II)  versions  retail  for 
$44.95;  a  Commodore  64  version  is  also 
planned  for  $39.95. 

Firebird  Licensees,  P.O.   Box  49, 
Ramsey,  NJ  07446 
Circle  Reader  Service  Number  213. 


EA  Game  Available  In 
New  Format 

Racing  Destruction  Set,  a  popular  Elec- 
tronic Arts  game  that  lets  two  players 
compete  using  racetracks  and  vehicles 
of  their  own  design  is  now  available  for 
the  Atari  8 00 /XL.  The  program  features 


Protect  your  computer's  mouse  with  H&H  Enterprise's  mouse  cover. 
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Software  discounters 
OF  America    ....„.„„..„„„.,..„ 


S.D.  of  A. 


For  Orders  Only -1-800-225-7638 
PA  Orders- 1-800-223-7784 
Customer  Service  412-361-5291 


Free  shipping  on  orders 

over  $100  in  continental  USA 

No  Surcharge  for  VISA/MasterCard 

Your  card  is  not  charged  until  we  ship 


YOUR  ENTERTAINMENT  SOFTWARE    SPECIALIST! 


IBM  SOFTWARE 


ACCOUDE 

Meimacoif $30 

Mean  18  Fimoui 

CoufM  Dhi    $14 

ACTtVISIQN 

H*cker *9.ea 

Hacker  2 S24 

Poftal      ,. -      127 

Shanghai $23 

TaisTime*.  - S23 

ARTWORX 

Bridge  4,0 116 

Strip  Poker  S2S 

Data  Disk '1  Femate  .   $14 

DataDi$k'2Male  $14 

OataDiik'lFematp      $14 

AVALON  HILL 

Supef  SdwI  Sunday        $11 

S.e.S-ChampjDijk         $14 

S.B.S.'eSTeamDijk        $14 

BRODERBUND 

Ancient  Arl  of  War  $17 

Carmen  Sandrego 

(USA) .,    .$19 

(World) ..,.-$25 

Karateka $21 

Print  Shop $36 

P. S.  Companion  .,...,$32 
P.S.  Graphics 

Library  '1  or '2  .   $2T  Ea. 

Toyshop $32 

CENTRAL  POINT 

Copy  2  S23 

PCTooU $23 

DATA  EAST 

Cornrnando $24 

Tag  Team  Wrestling.  .    $24 
ELECTRONIC  ARTS 
Software  Claiiic  Serie*: 
Archon  $9,88 

Mind  Mirror  $9.88 

MujicConit.  Set  $9,88 

One-Oft-One  $9,88 

PinballComt.Set  $9.88 
Seven  Ciliei  Cold  $9.B8 
Super  Boulder  Daih  S9.S8 
ELECTRONtC  ARTS 

AmneiJa  $29 

Che»master  2(KX] .  .  .  $16 
Grand  Stam  Bridge         $39 

Murder  Partr  .$26 

Scrabble $26 

Starfteell  ,,......,,  .$32 

StirHight ,  .$32 

World  Tour  Gotf $32 

EPYX 

Cf«ate  A  Calendar  .  .     $19 

Pitstop  1 $9.88 

SubaaltleSimutator  .    $24 

5umiTi«rCameil $24 

World  Garnet  ..$24 

CAMESTAR 

Champ.  Baseball   $24 

Champ.  Batkelball $24 

Champ.  Golf      .  $24 

CFLCh.  Footbtll  .  .  .  .  $14 
HUTtCH  EXPRESSIONS 

Award  Ware $9.88 

Card  Ware $6,88 

Heart  Ware $6,88 


Party  Ware $9.88 

INFOCOM 

$24 
$19 


Bureaucracy 

Hilchhiker's  Guide 

Hollywood  liijinx $24 

LealHer  Coddeisef ,       $24 

Zork  1 $24 

Zofk  Trilogy  .......   $44 

MIC  ROLE  AGUE 

Baseball ..$24 

'Boi  Score/Stats 

Compiler $16 

'General  Mgr/Owrrer    $19 
•1986  Team  Disk  $12 

Add-on  prograrni! 
MiCROPROSE 

F-t5  Strike  Eagle $21 

SJlenl  Service $21 

Ml  N  DSC  APE 

American  Chailenge      $24 

Balance  of  Power $30 

Bop  &  Wrestle $19 

Defender  of  the  Crown  $24 
Infiltrator  ,  $19 

Sub  Miition   ,  .  .  .    $24 

SSI 

Battle  oUntietam  ..  .   $30 

Getlytburg $36 

Kampfgruppe $36 

Rings  of  Zilfin $24 

RoidwarlOOO S24 

Shard  of  Spring $24 

SIERRA 

Black  Cauldron $14 

King's  Quest 

1,2,  Of  3  $32  Ea, 

Space  Queit .  $30 

SPECTRUM  HOLOBTTE 

Gate , $24 

Orbiter  $27 

Wildernefs $30 

SPRINGBOARD 

Certificate  Maker $36 

CM.  Library '1 $21 

Early  Games $24 

Newtroom $36 

Newsroom  pro S89 

N.R.  Clip  Art '1    $19 

N.R.  Clip  Art  «2    $24 

N.R,  Clip  Art '3   $19 

P.S.  Graphic*  Expander  $24 
SUBLOGIC 

Football. .$26 

Jet  . $32 

TELARIUM 

Amazon $9.88 

Dragonworld $9.88 

Fahrenheit  4S1 $9.88 

Nine  Princes   $9.88 

Perry  MasOn        .  ,     .    $9.88 

RendeivDus $9,88 

UNISON  WORLD 

Newsmaster $59 

Printmaiter  Plus $36 

Art  Gallery  1  or  2  .  .$19  Ea. 
VALUE  TIME 

Art  Library  1  or  2  .$6,88Ea. 
Calendars  &  SUtiort«rr$6,88 

Greeting  Cards $6.88 

Signs  &  Banners  ....  $6,88 


COMMODORE  64  &  128 


ACCESS 

Tenth  Frame $25 

World  Clats 

Leader  Board $25 

ACCOLADE 

Aceof  ACM ,  .        .$19 

Comics     ..,,,,,, $19 

Fight  Night  .....   $19 

Hardball $19 

Killed  Unlil  Dead $19 

ACTION  SOFT 

Up  Periscope! $19 

ACTJVISION 

Aliem     , $23 

Gamemaker  $2S 

Gamemakcr  Library  Disks 

Sports  or  Sci,  Fi,    $14  Ea, 

Hacker  $9.88 

Hacker! $23 

Music  Studio S23 

Portal    $25 

Shanghai    , $19 

Transformefi .  .$19 

ARTWORX 

$16 

$9.88 

$9.88 

.,$21 

$14 

$14 

$14 

$9.88 


Bridge  4.0 
Highland  Games 
Police  Cadet   . 
Strip  Poker  ... 

Data  Disk'l  Female 
Data  Disk  «2  Male  .  . 
Data  Disk  '3  Female 

Thai  Boiing 

AVALON  HILL 

Super  Sunday         ....  .$21 

S.6.S.  1985  Team  Disk    $14 

S.fi.S.  Champs  Disk         $14 

AVANTAGE 

Spy  vs.  Spy  1  &  2 $9,88 

BERKELEY  SO  FT  WORKS 
GECS64  $39 

GEOS  add-ons  Call 

BROOERBUND 

Print  Shop      $26 

P.S.  Graphics  Library 

'1.'2or'3 $16  Ea. 

Toy  Shop  ,  > , $26 

DATA  EAST 

Breakthru $33 

Commando $23 

Etpreit  Raider   .    $23 

rltari  Warriors $23 

KungFu  Masters $14 

Tag  Team  Wreitfing       $23 
ELECTRONIC  ARTS 
Software  Classic  Series: 
Archon  1:  Adept  .    .   $9.88 

Heart  of  Africa $9,88 

Mail  Order  Monsters  $9.88 


Movie  Maker $9.88 

Music  Const.  Set  $9.88 

One-on-One  .    $9.88 

Pinball  Const.  Set        $9.88 
Seven  Cities  Gold        $9.88 

Skyfox ,.$9.88 

Super  Boulder  Dash  $9.08 
Touchdown  Football .  $9.88 
Ultimate  Wizard  ,  $9.88 
ELECTRONIC  ARTS 
America's  Cup  Sailing  $23 
Arctic  Fox $23 


Bard's  Tale  1  or  2   .  .$26Ea. 

Chessmaster  2000 $26 

Marble  Madness $23 

Pegasus $23 

Star  Fleet  1  $26 

World  Tour  Golf,  ,  .    .    $23 

EPYX 

Champ,  Wrestling        .  ,$23 

Create  A  Calendar         $19 

Destroyer $23 

Fast  Load  {cart} $23 

Pitstop2 $9.88 

Sub  Battle  Simulator      $25 

Summer  Games  2 $23 

Super  Cycle $23 

World  Games $23 

FIREBIRD 

Elite $21 

Stargtider   $25 

The  Pawn   ,  .$25 

CAMESTAR 

Champ.  Baseball  $23 

Champ.  Basketball  $23 

GFL  Champ.  Football     $23 

INFOCOM 

Bureaucracy  128   .      .    $23 

Hilchhiker's  Guide         $19 

Hollywood  Hijint .    ,..$23 

Leather  Goddesses $23 

Zork  Trilogy .    $39 

MASTERTRONIC 

Bounder $6.88 

Captain  Zap $6,88 

Knight  Games $6,88 

Ninfa .$6.88 

Fro  Golf $6.88 

Shogun $6.88 

Vegas  Poker $6,88 

MICROPROSE 

Aerojet     $16 

Gunship.      .,...,..   $23 

Silent  Service $23 

MINOSCAPE 

Bop  &  Wrestle   $19 

Defender  of  the  Crown  $2S 

Fist , $19 

Super  Star  Ice  Hockey   $23 

UchiMata $19 

ORIGIN 

Autoduel $32 

Moebius $36 

Ultima  4 $39 

SPRINGBOARD 

Certificate  Maker $32 

CM,  Library  1 $23 

Newsroom ,$32 

N.R,  Clip  Aft '1  or  O  .   $19 

N.R,  Clip  Aft '2   $25 

SSI^ 

Gettysburg $37 

PhantasJe2 $25 

Rings  of  Zillin $25 

Shard  of  Spring $25 

Wizard's  Crown $25 

SUBLOGIC 

Baseball  $32 

Flight  Simulator  2 $32 

F.S,  Scenery  Disks,  $14  Ea. 

Football ,$26 

|e! $26 


APPLE  II  SERIES 


ACCESS 

Triple  Pack:  BHl,  BH2. 

Raid  Over  Moscow     $14 
World  Class 

Leader  Board  .  ,      .   $15 
ACCOLADE 

Fight  Night $19 

Hardball $19 

ACTI  VISION 
Camemaker  Library  Disks: 

Sci*Fi  ....,., $16 

Sports $16 

Gamemaker  ........  .$30 

Ghoslbustcrs $9,88 

Hacker! .$24 

Music  Studio  CS     .    .   $49 

PaintworksGS   $47 

Portal    $27 

Shanghai $21 

Shanghai  GS $29 

Tasi  Timet  CS .$24 

ARTWORX 

Bridge  4.0     ., $16 

I  nterrta  tional  H  ockey     $19 

Strip  Poker $19 

Data  Disk  *^  (Female]  $14 
Data  Disk  *1  [Male)  .  $14 
AVALON  HILL 

Dr.  Ruth   $19 

Super  Sunday  $21 

BANTAM 

Walt  Disney  Series: 

Card  &  Party  Shop  .  .$24 
Comic  Strip  Maker .    $24 
BAUDVILLE 

Award  Maker  .. $24 

Video  Vegas $19 

BROOERBUND 

Animate  (128K)  .      $42 

Carmen  San  Diego 

USA $27 

World $24 

DaizleDraw(128IC)  ,    ,$34 

Fantavision ,$30 

Karateka $21 

Print  Shop  (Enhanced)  .$27 
Print  Shop  Companion  $23 
P.S.  Graphics  Library 
'1,2  or  3  $14  Ea. 

Toy  Shop $32 

CENTRAL  POINT 

Copy! $21 

DATA  EAST 

Commando $21 

Tag  Team  Wrestling.      $21 
ELECTRONIC  ARTS 
Age  of  Adventure  .  .   $9.88 
Amnesia  ...  ...  .$29 

Archon $9,88 

Archon  2;  Adept  .        $988 

Arctic  fo»  . $26 

Bard's  Tale  1 $32 

Sattlefront  $25 

Carriers  at  War .  $30 

Chessmaster  2000 $29 

.  $65 
.,$19 
•$19 
$30 
.    $16 


Deluxe  Paint  II  GS 
D.  Paint  Art  "1  GS 
D.  Paint  Aft 'IGS 
Europe  Ablaze  .  .  . 
Lords  of  Conquest 


Murder  Pary $16 

Marble  Madness .    .    .   $13 

Mind  Mirror $9.88 

Moebius  $36 

Movie  Maker  $9.88 

Music  Const.  Sel  $988 

Music  Const.  SefGS       $32 

Ogre  $25 

One-on-One $9.88 

Pegasus $23 

Pinball  Const.  Set  .      $9.88 
Russia  [The  Great  War]  $26 

Scrabble $26 

Seven  Cities  of  Gold    $9.88 
Skyfox  $9.88 

Star  Fleet  1  $32 

Super  Boulder  Dash  .  $9.88 
Ultima  4   .  .  $36 

EPYX 

Champ.  Wrestling  $23 

Create  A  Calendar  $19 

Summer  Games  2  ..  .    .$23 

Winter  Games   $23 

GAMESTAR 


P.O.  BOX  111327-DEPT.  CP-BLAWNOX,  PA  15238 


Champ.  Baseball    . 

$24 

Champ.  Basketball 

$14 

Champ.  Football 

$24 

HI-TECH  EXPRESSIONS 

Award  Ware 

$9,88 

Card  Ware 

$6.88 

Heart  Ware     

$6,88 

Party  Ware 

$9.8« 

INFOCOM 

Bureaucracy  ....... 

$24 

Hitchhiker's  Guide   . 

$19 

Hollywood  Hi|ini 

$24 

Leather  Goddesses . 

$24 

Zork  Trilogy 

,.$44 

MICROLEAGUE 

Baseball 

.$24 

Bot  Score  Slats 

$14 

General  Mgr./Owner 

$19 

1986  Team  Disk  . 

$12 

MICROPROS! 

F-1 5  Strike  Eagle.,.. 

..$21 

Silent  Service 

$21 

MINDSCAPE 

American  Challenge 

$24 

Bop  &  Wrestle 

$19 

Infiltrator  , 

$19 

SSI 

Gettysburg 

$35 

Phanlasie  1>2or3     $13  Ea. 

Realms  of  Darkness  . 

$23 

Rings  of  Zilfin 

$23 

RoadwaflOOO 

$23 

Shard  of  Spring 

$23 

Wizard's  Crown  .... 

$23 

SPRINGBOARD 

Certificate  Maker      . 

$29 

CM.  Library  Vol,  1     . 

$21 

Newsroom    

$32 

N.R.  Clip  Art 'lor '3 

$17 

N.R.  Clip  Art '2 

$23 

Publisher     ..,.,.. 

Call 

SUBLOGIC 

Baseball    

$32 

Flight  Simulator  2.    . 

$30 

let  _  .    ... 

$26 

VIP  TECHNOLOGIES 

VJP  Professional  GS 

$179 

Please  Read  The  Following  Ofdermg  Terms  A  Conditions  Carefully  Before  Placing  Your  Order:  Orders  with  cashiers  check  or  money  order  shipped  immediately  on  in  stock  items, 
Ao/J""  jj  «  """"i?^  checks,  allow  3  weeks  clearance.  No  CO.D.'s!  Shipping:  Continental  U.S.A. -Orders  under  $100  add  $3;  free  shipping  on  orders  over  $100.  AK,  HI,  FPO, 
APO-add  $"1  on  all  orders,  Cartada  &  Puerto  Rico-  add  S10  on  all  orders.  Sorry,  no  other  International  orders  accepted!  PA  residents  add  6%  sales  tai  on  the  total  amount  of  order 
.nctudmg  shipping  charges^  REASONS  FOR  CALLING  CUSTOMER  SERVICE  -  412-361-5291  (1)  Status  of  order  or  back  order  (2)  If  any  merchandise  purchased  within  60  days  from  S,D 
ol  A.  IS  «*'<^h^«.  piMM  call  (or  a  return  authorisation  number.  Defective  merchandise  will  be  replaced  with  the  same  merchar>dise  only.  Other  returns  subject  to  a  15%  restocking 
charge.  After  60  days  please  refer  to  the  manufacturers  warranty  included  with  the  merthandise  &  return  directly  to  the  manufacturer.  Customer  service  will  not  accept  collect  calls  or 
calls  on  S^.  OF  A'l  800'  order  lines!  Have  you  seen  our  on  line  catalog  of  1000  software  titles  for  Commodore.  Atari,  Apple,  IBM  and  Amiga!  It's  on  CompuServe's  Electronic  Mall- 
(ust  type  CO  SDA  and  shopping  for  software  will  never  b«  the  same  again!  HOURS:  Mon..Ffi.  9AM-5:30  PM,  Sat,  lOAM^PM  Eastern  Time.  Because  this  ad  had  to  be  written  2-3  mos. 
before  t\  was  published,  prices  &  availability  are  subject  to  change?  When  sending  a  mail  order,  please  specify  make  &  model'  of  your  computer' 


a  unique  "isolated  camera"  display 
with  true  split-screen  scrolling  so  that 
each  player  can  view  his  or  her  own  car 
and  position  on  the  track  no  matter 
where  the  opponent  is.  The  game  also 
comes  with  predesigned  tracks  repre- 
senting some  of  the  most  famous  race- 
tracks in  the  world. 

The    800/XL   version    retails   for 
$32.95. 

Electronic  Arts,  1820  Gateway  Dr., 
San  Mateo,  CA  94404 
Circle  Reader  Service  Number  214. 


Inexpensive  Productivity 
Software 

Easy  Working  Software,  the  newest  di- 
vision of  Spinnaker  Software,  has  an- 
nounced the  release  of  three 
inexpensive  new  productivity  pro- 
grams: The  Writer,  The  Planner,  and  The 
Filer. 

The  Writer  is  designed  for  the  first- 
time  word  processor  user.  Standard 
editing  functions  are  included,  like  cut- 
and-paste,  automatic  page  numbering, 
search  and  replace,  and  underlining. 
The  spellchecking  feature  recognizes 
over  99  percent  of  spelling  and  typing 
errors. 

The  Filer  functions  as  a  database 
manager  to  store  and  organize  records 
more  efficiently.  It  can  be  used  for  a 
variety  of  applications,  like  creating 
and  storing  mailing  lists,  club  member- 
ship files,  and  inventories.  Over  50,000 
records  can  be  stored  per  file;  form 
letters  can  be  generated  by  integrating 
The  Filer  and  The  Writer, 

The  Planner  is  an  electronic  spread- 
sheet, easy  enough  for  an  inexperi- 
enced spreadsheet  user  to  plan  home 
budgets,  as  well  as  tax  and  other  finan- 
cial statements.  It  features  extensive 
math  calculations,  standard  editing 
functions,  onscreen  help,  and  allows 
easy  manipulation  of  existing  data. 

All  three  programs  can  be  fully 
integrated  and  require  little  prior  com- 
puter knowledge.  Each  is  available  for 
IBM  PC  and  compatibles,  Apple  II  se- 
ries, and  Commodore  64  computers  for 
$9.95. 

Spinnaker  Software,  0?w  Kendall  Sq., 
Cambridge,  MA  02139 
Circle  Reader  Service  Number  215. 


World  War  II  Conflict  Gome 
Available  From  Avalon  Hill 

Named  after  the  German  general  who 
commanded  on  the  WWII  Eastern  front 
and  designed  the  Blitzkrieg  tactics  that 
revolutionized  armor  tactics,  Guderian 
simulates  a  critical  campaign  of  the  Sec- 
ond World  War  using  Avalon  Hill's  joy- 
stick-driven system  from  Gulf  Strike. 
Driving  towards  Moscow,  the  Ger- 


man  army   encounters   resistance 

around  the  city  of  Smolensk.  As  the 
German  commander,  you  must  use  the 
Blitzkrieg  tactics  of  encirclement  and 
deep  penetration  behind  enemy  lines  to 
trap  and  destroy  the  enemy.  The  Soviet 
commander,  meanwhile,  must  organize 
an  effective  resistance  and  organize  lo- 
cal counterattacks  to  halt  the  German 
forces.  Time  becomes  a  critical  factor  as 
the  German  units  must  cross  the  map 
within  12  turns  or  lose  the  game. 

Guderian  has  a  solitaire  option 
which  allows  the  player  to  take  com- 
mand of  either  the  German  or  Soviet 
armies,  as  well  as  to  control  overrun 
attacks,  supply  rules,  Soviet  leaders, 
rail  movement,  and  optional  reinforce- 
ments. The  rulebook  introduces  new 
players  to  historical  gaming,  explaining 
concepts  like  zones  of  control,  supply, 
combat,  and  movement. 

Available  for  Atari,  Commodore, 
and  Apple  eight-bit  machines,  Guderian 
retails  for  $30. 

The  Avalon  Hill  Game  Company, 
4517  Harford  Rd.,  Baltimore,  MD  21214 
Circle  Reader  Service  Number  216. 


Miniature  Golf  Program  For 
IBM  and  ST 

Artwork  Software  has  begun  shipping 
Minigolf  for  IBM  PC  and  compatibles 
and  Atari  ST  computers. 

Minigolf  is  a  miniature  golf  game 
that  comes  with  three  different  courses. 
(The  ST  version  provides  an  editor  to 
create  or  modify  your  own  courses.) 
Each  course  confronts  you  with  various 
obstacles  to  decrease  the  chances  of 
making  a  hole-in-one.  The  program's 
scorecard  displays  the  low  score  for 
each  course,  and  tracks  up  to  four  play- 
ers. Minigolf  courses  are  designed  to 
conform  to  professional  and  tourna- 
ment-class standards.  Suggested  retail 
price  is  $29.95  for  IBM  PC  and  compati- 
bles and  $19.95  for  the  Atari  ST  version. 

Artworx  Software,  1844  Penfield  Rd„ 
Penfield,  NY  14526 
Circle  Reader  Service  Number  217. 


File  Command  Window  For 
IBM  PC 

MicroMath  is  announcing  Directory- 
Window,  a  memory-resident  directory 
utility  that  can  be  popped  up  at  any  time 
to  provide  access  to  various  file  com- 
mands without  disturbing  the  comput- 
er's current  activity.  It  allows  users  to 
scroll  through  file  directories;  sort  direc- 
tories by  date,  by  size,  or  alphabetically; 
compare  directories  by  popping  up  two 
or  three  simultaneously;  rename  files  by 
typing  over  the  filename  on  the  screen 
display;  delete  files;  and  print  directories 
for  archival  purposes. 


In  addition  to  accepting  the  full  ar- 
ray of  file  specifications  that  the  DIR 
command  accepts,  DirectoryWindow  al- 
lows the  display  to  be  redistricted  to 
subdirectories  within  a  given  directory. 
Directory  trees  may  also  be  traversed. 
DirectoryWindow  displays  the  number  of 
bytes  occupied  by  the  specified  files,  as 
well  as  space  remaining  on  the  disk.  The 
program,  available  for  MS-DOS  ma- 
chines, costs  $14.95  plus  $2  shipping  and 
handling. 

MicroMath  Scientific  Software,  3690 
£.  Fort  Union  Blvd.,  Ste.  204,  Salt  Lake 
City,  UT  84121-4550 
Circle  Reader  Service  Number  218. 


Interface  Support  For  Eight-Bit 
Atarls 

Two  new  products  from  ICD  offer  Atari 
eight-bit  computer  users  new  interface 
options. 

The  P:R:  Connection  plugs  directly 
into  the  serial  port  of  any  eight-bit  Atari 
and  provides  the  user  v/ith  a  standard 
Centronics  printer  port  and  two  RS-232 
type  serial  ports.  It  draws  energy  from 
the  computer  itself,  which  means  one 
less  cord  needing  an  outlet.  Its  serial 
ports  resemble  those  of  the  Atari  850 
interface,  possessing  the  same  signals 
and  functions  and  using  a  fully  compati- 
ble built-in  R:  handler.  The  P:R:  Connec- 
tion retails  for  $89.95. 

The  Multi  I/O  offers  five  functions 
in  one  box  for  your  Atari  130XE  or 
800XL:  a  256K  or  one-megabyte  RAM 
disk;  Centronics  parallel  interface;  serial 
printer/modem  interface;  print  spooler; 
and  hard  disk  interface.  The  25 6K  ver- 
sion retails  for  $199.95;  the  one- version, 
for  $349.95.  A  130XE  Adapter  (adding 
two  cartridge  ports)  is  also  available  for 
$19,95. 

ICD,   1220  Rock  St.,  ^ockford,  IL 
61101-1437 
Circle  Reader  Service  Number  219, 


New  Baseball  Strategy  Game 
For  Commodore  64 

Monday  Morning  Manager  puts  64  major 
league  baseball  teams  with  full  rosters 
(over  1500  players)  at  your  command. 
It's  a  statistic-based  baseball  strategy 
game  whose  master  disk  contains  real 
information  on  the  greatest  teams  from 
1905  through  1985  and  four  All  Star 
teams. 

Nine  main  menu  selections  let  you 
create  your  ovm  teams;  make  trades; 
draft  teams;  keep  personal,  current  statis- 
tics on  Uttle  League,  softball,  or  major 
league  teams;  and  save  and  print  stats, 
game  score  cards,  rosters,  and  won-lost 
records.  The  program  stores  up  to  65,000 
at-bats  per  player  and  over  20,000  in- 
nings pitched  per  pitcher.  Designed  for 


114     COMPUTl!     June  1987 


THE  LOWEST 
PRICES 


THE  BEST 
SERVICE 


PHONE 
LINES 
OPEN 


10-6E.S.T. 


ELECTRONIC  ONE* 

CALL  f614J  864-9994  •  P.O.  Box  13428  •  COLUMBUS.  OHIO  43213 


AATARI1040ST 

Personal  Computer  System 


•  1 ,048,576  BYTES  RAM 

•  196,608  BYTES  ROM 

•  BUILT  fNTOS 

•  31/2  INCH  DBL. 
SIDED  DISK  DRIVE 

•  TWO  BUTTON  MOUSE 

•  COLOR  MONITOR 

•  512  COLORS 

•  MIDMN/OUT  PORTS 


$869^9 

B/W  SYSTEM  $68999    COMPLETE  COLOR  SYSTEM 


E  COMMODORE  PC-10-2 
IBM  Compatible  System 


8088  MICROPROCESSOR 

640K  B  RAM 

2'360K  DISK  DRIVE 

PC-XT  COMPATIBLE  BIOS  y  //  / 

85  KEYS  ^-^ 


CENTRONfCS  PARALLEL  PORT 
RS-232  SERIAL  PORT 
EXPANSION  SLOTS 
POWER  SUPPLY  W/FAN 
FULLY  IBM  COMPATIBLE 
TENIKA  MJ22  COLOR  RGB 
W/CABLE  239»«  OPTIONAL  PRICE 


$88999 


PC10-1 

ONE  DISK 

DRIVE 

512K 


$71 999 


A 


ATARI  520ST 


520ST 
SINGLE  DISK 

DRIVE 

B/W  Monitor 

Complete 


520ST 
SINGLE  DISK 

DRIVE 

Color  Monitor 

Complete 


45999     69999 


COMPUTERS 

FOR  THE  HOME 

AND  OFFICE 

AT  LOW,  LOW 

PRICES 

ELECTRONIC 

ONE 


1.1*^ 


IBM  Compatible 


90' 


Franklin  Computers 
PC  8000     ~"^~ 


•  SF354  SQL 
DISK  DRIVE 

•  SF  314  DBL 
DISK  DRIVE 


•  SF  350-20  MEG 
12933       HARD  DRIVE     49999 


19999 
•  B/W  MONITOR  12999 


COLOR 
MONITOR 


29999 


LOW,  LOW  PRICE  HOME  COMPUTERS 

ATARI  800XL(64k)   $69.99 

ATARI  65XE(64k)  W/SOFTWARE $89.99 

ATARI  130XE{128k) $129.99 

COMMODORE  64  (REFURBISH) $129.99 

FULL  90  DAY  WARRANTY 

COMMODORE  64C(W/GEOS) $169.99 

COMMODORE  128  (128k) $239.99 

(WE  CARRY  VIDEO  GAMES  TOO!) 


4.77  MHZ 

51 2K  RAM 

2-360K  DISK  DRIVES 

PARALLEL  PRINTER  PORT 

COLOR  ADAPTER 

MODEM  ADAPTER 

EXPANSION  SLOTS 


$59999 


W/RGB 

MONITOR 

819«« 


W/GREEN 

MONITOR 

689« 


Franklin  Ace  500 


Apple  2C  Computer 


FULLY  2C  COMPATIBLE 

256K  RAM 

51/4"  164K  DRIVE 

KEY  PAD 

SWITCHABLE  40/80  COLUMN 

EARPHONE  JACK        w/green  monitor  w/rgb  COLOR 

90  KEY  KEYBOARD  ^^-^  «i9-99 


$39999 


CAU  FOR  COMPLETE  CATALOG 

HOW  TO  ORDER:  CASHIER  CHECK.  MONEY  ORDER.  MASTERCARD*  Ofi  VISA'  (ADO  4%  FOR  CHARGE  CARDS)  ...  NO  PERSONAL  CHECKS  ...  NO  C.O.D.'S  . .  .  SHIPPED 

U.P.S.  ...  ALL  PRICES  SUBJECT  TO  CHANGE  WITHOUT  NOTICE. 

SHIPPING:  ADD  $3.00  ON  ALL  ORDERS  UNDER  $100.00  .  .  .  ADD  $5  00  ON  ALL  ORDERS  OVER  $100.00.  ACTUAL  FREIGHT  CHARGED  ON  MULTIPLE  ORDERS. 

INTERNATIONAL:  ACTUAL  FREIGHT  CHARGED  ON  ALL  ORDERS  OUTSIDE  THE  CONTINENTAL  UNITED  STATES  INCLUDING  A.P.O. 

POUCIES:  NO  RETURNS  WITHOUT  A  RETURN  AUTHORIZATION  ...  NO  RETURNS  UNLESS  DEFECTIVE.  ALL  DEFECTIVES  WJLL  BE  EXCHANGED  ...  NO  EXCEPTIONS. 

PLEASE  SPECIFY  .  ,  . 

CALL  OR  WRITE  FOR  FREE  CATALOG 


CALL  ELECTRONIC  ONE  (6 1 4i  864-9994 


P.O.  BOX  1 3428  COLUMBUS.  OHIO  432 1 3 


the  Atari  eight-bit  machines,  Monday 
Morning  Manager  is  now  available  for 
the  Commodore  64  for  $39.95. 

TK  Computer  Products  also  offers  a 
line  of  inexpensive  software  called  White 
Bag  Software  for  the  64:  Money  $pin,  a 
puzzle-solving  program^  and  Crypto - 
Mania,  an  educational  word  game.  Each 
retails  for  $14.95. 

TK  Computer  Products,   P.O.   Box 
9617,  Downers  Grove,  IL  60515 
Circle  Reader  Service  Number  220. 


Recording  Studio  For  The  ST 

Midisoft  Studio  lets  you  edit  compose^ 
and  record  music  using  an  Atari  ST  and 
any  instrument  that  has  a  MIDI  connec- 
tion. The  program's  features  include  real- 
time record,  playback,  overdub,  rewind, 
and  fast-forward;  32  polyphonic  inde- 
pendently-controlled tracks;  30,000 
notes  per  song;  full-track  editing  and 
flexible  region  editing;  and  many  other 
features  standard  in  such  a  program.  In 
addition,  it  offers  external  sequencer  con- 
trol to  recognize  and  send  codes  to  other 
equipment,  and  instrument  set-up  for 
control  over  special  options  on 
synthesizers. 

The  price  oi  Midisoft  Studio  is  $99;  a 
special  studio  demo  disk  is  available  for 
$10. 

Midisoft,  P.O.  Box  1000,  Bellevue, 
WA  98009 
Circle  Reader  Service  Number  221, 


SDi  Simulation  For  The  64 

Now  you  can  play  ''star  wars"  as  if  your 
computer  were  actually  linked  to  an  ex- 
isting SDI  (Strategic  Defense  Initiative) 
system  with  DEF  CON  5  from  Cosmi. 
With  this  interstellar  defense  simulation, 
you  control  16  orbiting  visual  reconnais- 
sance satellites  that  provide  23  different 
geostationary  and  close-up  maps  of  the 
earth's  surface.  Using  a  series  of  com- 
mand and  operator  control  functions, 
you  bring  your  SDI  system  into  action 
against  incoming  enemy  ballistic  mis- 
siles. Weapons  such  as  ground-based 
chemical  lasers,  orbiting  laser  reflectors, 
free-electron  lasers,  neutral  particle 
beams,  electro-magnetic  launchers,  nu- 
clear-pulsed x-ray  lasers,  and  antispace 
mine  robots  are  available  to  intercept  and 
destroy  the  enemy  warheads. 

Retail  price  is  $19.95. 

COSMI,  415  N.  figueroa  St.,  Wil- 
mington, CA  90744 
Circle  Reader  Service  Number  222. 


Electronic  Arts  To  Distribute 
Sierra  On-Une  Software 

Electronic  Arts  has  announced  an  agree- 
ment to  distribute  the  first  five  Sierra  On- 
Une  Amiga  products  under  a  new 


affiliated  label  agreement.  King's  Quest 
and  its  sequels.  Romancing  the  Throne 
and  To  Heir  Is  Human,  make  up  a  trilogy 
of  3-D  animated  fantasy  adventure 
games;  each  is  $49.95.  Space  Quest,  a 
science  fiction  parody  game,  also  carries 
a  suggested  retail  price  of  $49.95;  and 
Winnie  the  Pooh  in  the  Hundred  Acre 
Wood  is  a  children's  entertainment/ edu- 
cational product  with  a  price  of  $24.95. 
Electronic  Arts,  1820  Gateway  Dr., 
San  Mateo,  CA  94404 
Circle  Reader  Service  Number  223. 


Leose  Or  Buy? 

Lincoln-Mercury  is  offering  a  free  pro- 
gram that  explains  the  advantages  of 
leasing  new  Lincoln-Mercury  and  Mer- 
kur  XR4Ti  model  cars.  The  program  also 
features  color  graphics  illustrations  of  all 
Lincoln-Mercury  car  models. 


Lincoln-Mercury  offers  a  free  disk  that  ex- 
plores vehicle  leasing  options. 

The  disk  is  available  free  of  charge 
for  the  IBM  PC  and  compatibles^  Macin- 
tosh, and  Commdore  64/128. 

Lease  Program  Headquarters,  P.O, 
Box  2909,  Farmington  Hills,  MI  48018- 
2909 
Circle  Reader  Service  Number  224, 


WWII  Wargame  Simulatton 
For  The  Amiga 

Strategic  Simulations  has  released  an 
Amiga  version  of  Kampfgruppe,  an  ad- 
vanced-level war  simulation.  This  game 
explores  the  tactical  opportunities  be- 
tween the  German  and  Soviet  units  on 
the  Eastern  Front  during  WWII.  You  can 
create  your  own  scenarios  or  follow  the 
four  historic  models.  There  are  over  45 
armored  vehicles^  plus  guns  and  infan- 
trjrmen  for  you  to  command. 

Suggested  retail  price  is  $59.95, 
Strategic  Simulations,  1046  N,  Reng- 
storff  Ave.,  Mountain  View,  CA  94043 
Circle  Reader  Service  Number  225. 


Educational  Ants 

Nine  busy  ants  in  Sunburst's  Ant  Farm 
help  kids  in  grades  3  and  up  learn  to 
become  better  problem  solvers,  The  ob- 
ject of  this  game  is  to  tind  the  correct 


workstations  for  the  ants  based  on  each 
ant's  work  pattern.  To  do  so,  students 
must  gather  information  about  the  ants 
and  place  them  in  the  farm  accordingly. 
There  are  different  levels  of  play  and 
challenges  plus  an  onscreen  toolbox  for 
assistance. 

Ant  Farm  is  available  for  Apple  II- 
series  computers.  Each  package  includes 
a  disk,  backup,  and  teacher's  guide. 

Retail  price  for  Ant  Farm  is  $59. 

Sunburst  Communications,  39  Wash- 
ington Ave,,  Pleasantville,  NY  10570 
Circle  Reader  Service  Number  226. 


Amiga  Astronomy  Program 

Infinity  Software  has  released  Galileo,  a 
full-featured  desktop  astronomy  pro- 
gram for  the  Amiga.  This  program  uses  a 
database  of  over  1600  stars  and  over  400 
deep-sky  objects.  Users  can  scroll  to  any 
part  of  the  sky  to  identify  constellations, 
planets,  and  a  solar  eclipse.  Galileo 
shows  the  sky  from  any  point  on  Earth 
for  any  date  in  this  century  and  shows 
each  star  in  nine  different  levels  of 
brightness. 

Galileo  retails  for  $99.95. 

Infinity  Software,  1331  61st  St„  Ste, 
F,  Emeryville,  CA  94608 
Circle  Reader  Service  Number  227. 


Mafti  Tutorial  For  Apple 

Scholastic  Software  has  introduced  Math 
Tutor,  a  comprehensive  series  of  four 
math  tutorials  for  the  Apple  ll-series  of 
computers  (48K  RAM  minimum).  De- 
signed for  students  in  grades  1-6,  the 
series  includes  programs  in  addition, 
subtraction,  multiplication,  and  division, 
Each  gives  students  an  introduction  to 
the  arithmetic  operation  or  concept  and 
reinforces  learning  with  practice 
problems. 

With  Math  Tutor,  students  learn  in  a 
logical  step-by-step  sequence.  First,  they 
take  a  placement  test  that  evaluates  their 
strengths  and  weaknesses  and  places 
them  at  one  of  seven  levels.  They  receive 
instruction  and  repeated  practice  at  that 
level  and  then  move  to  the  next.  Student 
progress  is  continually  evaluated  to  pro- 
vide the  learner  with  additional  feedback 
and  instruction  as  needed. 

Math  Tutor  also  offers  teachers  and 
parents  a  management  system  to  track 
and  monitor  students'  progress.  It  can 
print  out  records  of  each  student's  per- 
formance or  can  be  turned  off  to  allow  for 
home  use  or  specific  teacher  needs.  Each 
package  contains  worksheets  that  corre- 
spond to  each  lesson  on  the  curriculum 
disks. 

All  four  Math  Tutor  packages  are 
available  in  both  school  and  home  edi- 
tions. The  home  editions^  retailing  for 
$59.95  each,  contain  two  lesson  disks,  a 
management  disk,  and  a  user  handbook 
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AATARI-  ST       STatai 

PC  COMPATIBLES  "^  »«  STop  shop 
PC-n  SYSTEMS  $399 


ORDERS  ONLY 

CALL  TOLL  FREE 

1-800-225-5878 

ORDER  STATUS.  INFORMATION.  R  A.'s 
1-313-595-0788 


■  IBM*  COMPATIBLE 
'  360  K  FLOPPY  DRIVE 
'  FLOPPY  DRIVE  CARD 
•256k  MEMORY 
'XT  STYLE  KEYBOARD 


'8  EXPANSION  SLOTS 
'150  WATT  P.S. 
'RGB/COMPOSITE 

MONITOR  OUTPUTS 
'FCC  APPROVED 


PC-AT  SYSTEMS  $995 


■PC-AT  COMPATIBLE 

■RGB/COMPOSITE  OUTPUT 

'1.2  MEG  DRIVE 

'200  WATT  P.S. 

'AT  STYLE  KEYBOARD 


'FLOPPY/HARD 
CONTROLLER 
'512k  RAM 
'FCC  APPROVED 
■6/8  MHZ 


■IBM  IS  A  REGISTERED  TRADEMARK  Of  INTERN ATiQNAL  BUSINESS  MACHINES 


PC  Additional  Equipment 

'  PARALLEL  PRINTER  CARD  $24 

►  RS-232  INTERFACE  29 
'  CLOCK;'CALENDAR  36 
^  COLOR  VIDEO  CARD  69 
-  TTL  VIDEO  CARD  85 

>  MULT[  I/O  CARD  79 
'  360K  H-H  DRIVE  94 


BULK  DISKS 
5Va  ».29 
31/2  ^99 


^<!*i. 


SS/DD 

OTY. 
1000 
SS/DD 
QTY. 
25 


'.31 
1.29 


m 

DS/DD  '%f 

QTY. 

100 

SS'DD 

QTY. 

25 


520ST  SYSTEMS  1040ST 
$659  COLOR  $call.  ->l^|j| 

$469  MONO  «--ii^-*^^=^^' 


$callS^ 


QH  CALL  FOR 
L^^TEST  PRICES 


SUPER  SPECIAL  SEAGATE 
PC-XT  HARD  DRIVE  KIT 


$389 

20  MEG 


PANASONIC  1080 


•  120  CPS 

•  EPSON  IBM 

•  NLQ  MODE 

•  FRICTION 
TRACTOR 


$199 


2  YEAR 
WARRANTY' 


DATA  CASE  SPECIAL 

SD/DS/DD  DISKEHES  .^V^ 
PACKED  IN  A  FLIP  TOP  i 

DATA  CASE  WITH 
SLEEVES,  LABELS,  & 

WRITE  PROTECTS 

All  Just  $24.95 


1200  BAUD  MODEM 

KIT  FOR  ST 

*  AVATEX  1200  HC 

*  ST  TALK  SOFTWARE 

*  COMPUSERVE  STARTER  KfT 

*  RS-232  CAaE  M-F 

COMPLETE  (H-l  00 

KfT    JUST  $|jif 


ATARI  SH  204 

OR 

SUPRA  DRIVE 
20  MEG  HARD  DRIVE 

YOUR  CHOiCE 
SAME  LOW  PRICE 


$549 


Clip  Art  Vc34  2  ■  NawafDoni2€  95 

Cl«p  An  Vo4  3 '  Nmttrooml9.9S 

CfOMia»( 

1299$ 

Dbue  M     

333  96 

Dtu»  til  Plus  

460  96 

Dollvi  «nd  Swne 

witti  FofBcau 

1M95 

Oc<\»»d  Oum  Playground  IB  9S 

F-lSStnti*  E^ie 

23  9* 

Fhgnt  Simular 

.33  » 

dt^ 

26  95 

GrapJuo  UbtTf  (  or  (1, 

.23.95 

(S  Talk 

....39.95 

Jtfl  

33  95 

Karilaka 

23.96 

King  s  Ount  *.  II  Of  til . 

33  96 

Lotus  12-3    

.333  96 

Mark  Wltlgims  C       . 

333  96 

2«95 

ht«in  Btuter 

33  « 

Mfldn  ia        

.26,05 

Hmtvoom 

.40  95 

Pawn 

.29.95 

.40.96 

Pmri  Shop  Compmon 

»95 

RM^oBuabtf 

27  95 

Svoort  til 

26  96 

Slwigh» 

29  95 

SitMQck 

43  95 

S4wilS«v» 

53  95 

Sfi«oa  Quttsi 

.33.96 

SMrvner  GvnM  II 

..26.95 

Symphony 

.466.95 

Twnpte  ol  A^ahai  TriiO(»  28.95 

Umma  III.      

39  96 

Vfirnn  Th«Pooh 

16  96 

V^I«rGwTiM 

26  95 

VWl»nty  f*nwng  Giowibt  40  « 

Wora  Anac* 

33  »S 

V¥oTJPwt*3 

330  05 

W0flli*v2000» 

396  9S 

WtartdGaim 

.  2e05 

Zbrt  Traogy 

...46.0S 

CABLES,  INTER- 
FACES, ETC 

AB  Swtch  Box  Pat^W  39  95 
AS  SwrttSi  Box  BS2a2  39  95 
AB-X  Crossover  Soi  Pa?  49  9S 
tawST  PmiBf  Cab4e  1 0  9  96 
(BM^T  pTJTtof  C«b4e  6'       6  95 

MtOTSiBuffef 59  95 

PRCowiecton    .  7995 

FtS-232  F.T  6" 9  95 

nS-232M.1=  W.., 12  95 

RS-^3^  MJf  6- 9.95 

RS-232  M*ie....... 9,05 

ST0rtv<fC4bto6'...., 14.05 

X^rjonaie-.., 9.05 

CONTINUOUS 
CARD  STOCK 

3X5 4  99 

4X6 799 

5X7 0S9 


CONTROLLERS 

Atan  Eoxtomy  .  .     4  95 

Epyn  500XJ 1495 

Ftepi»c«m«fl1  Mouw  (ST|  49  95 

Taca 695 

TAC-10  ISM  i  APF»LE 27  95 

VSrra3-Way 2395 

WtCO  Boss 12.95 

DISKETTES 

3'^   Dnve  Ciflanef  1 1  95 

Bum  3W  DaOO  ,       1  49 

Bu*3'.^"SS0D        99 

Bui(SV4"DS0D 39 

Maxell  3 If"  DSt)D  (Beu}  19  9S 
Maxm  3^^"  SSt©  fao*)  14  96 


Sony  SI'S  OS  DO  (Bo*)  .19  95 
Sony  3  '^  SS  OD  {Box)  1 3  95 
Tyvek  Sleeves 05 


DUST  COVERS 

1040  ST 

995 

520ST 

695 

520ST  System 

24  95 

G«rTWk  10 

.696 

IBW  PC  Keyboard 

6.95 

IBM  PC  Sysiefn 

23  95 

Panasonk:  108090/91 . 

6.9S 

SF314 

S.95 

SF354 

..,..,505 

SM1Z24 

.,,.11.95 

SM124 

...1195 

HARDWARE 

i?OOBaudMoclefn 

InlBfnal 

119  00 

SDMegabyle 

Seagaie  w.controier    . 

.360  00 

Amtoef  TTL  Moortw 

119.00 

Atofi  1040ST 

C*l 

Atan3i4  Dnwe     

109  00 

AUn354  Onv« 

105  00 

At»n520ST  

269  OO 

Atan  SCI 224 

ColOf  Monitor 

299  00 

Alan  SH204  Hand  Drrve 

539  00 

Atari  SMI 24  htono  Monitor 

119  00 

Atsn  SMMe04  Prfmer  . 

t69  00 

Alan  SX21 2  Modem 

70  00 

Oocit  Calefxlar  Cafd 

36  00 

DSDD  '  -S  Heighl 

360l(  Dnvfl 

09  00 

FVDppy  Onye  Controlleir 

39  00 

Game  Cootroiief  Pon 

20  95 

GrHn  Compcrstte  Monttof  79  00 
Kayt>oard  5151  S5D0 

Koytioara  5160  BS  00 


Mulli  ID   *   II 79  00 

Okimaie  20 

w  Ptugn-Pnnf 196.00 

Panasooic 

10801(120  CPS)  1950O 

Panasonic 

10911  (160  CPS)  240  00 

Partascmic  1 592  420  00 

ParaU«l  Pol  24  DO 

RS  232  Pofl  20  00 

Stflf  NPIO 15800 

Sl*f  NX-10 229  00 

Supra  20  Meg  Hard  Dnve549  00 
Upgrade.  E2- Ram  tS900 

Upgrade.  MegA-Ram  129 00 
Video  Card  -  Mono  TTL  S5  00 
Video  Card  -  RG&Composrto 

65  00 
XT  Turt»  Upgrade 
4  77/B  MH2  ZO  00 

COLOR  PAPER 

BLUE.  YELLOW.  GREEN.  PIMK 

WHITE,  SALMON  &  GOLD 
500  Snms  (Any  Cofcy) 
20#  LZcul  6  95 

HambowPack  *1  (PYB)   6  95 
Rartxjw  Pack  *2 
(GflSGOj  6  95 

RIBBONS 

Epson  FXMX.  RX-aO  S  99 

IB-M  Propffnler 9  95 

sonic  lOeO-OOf 0  09 

Siaj-Okidaia 2  99 

XMM  SOI  LegendBMC  7  99 
XMM604  7  90 

CONTINOUS 
LABELS 

Ajjdw  Caisefie.  Whu*  9  99 
D«s*[  (2  ^4  «  2)  250  Whrte  4  99 
Frte  FoJbef  j3i>?  X  H)  750  9  99 
Mail  (3'^  X  1^6)  1000       6  99 


MISC. 
ACCESSORIES 


M  T WIS!  N  Tilt 
5  '  -I  Disk  Notctief 
Amafay  Prmlef  Stand 
Mouse  House 
Mouse  Mat 
Pnnner  Slarin  2- Piece 
Six  CXftlei  Surge  Slip 


14  95 
705 

U95 
495 
/05 

12  95 

14  95 


DISK  STORAGE 


Osk  Directory  [3  '^) 
t>sk  File  40  -  S'.'S 
Disk  Fife  60  •  5V4  . 
Libi-ary  Case  ■  tO  (3^.^) 
L«brary  Case-l  (5Vi) 
LibfarvCase-5  f3'^) 
Pocket  Pac>i  13 '.'31 


22  99 

699 

699 

100 

99 

99 


ATARI  ST 
SOFTWARE 

AlMTTuui  Raaify  32  96 

Ammal  Kingdom 26.95 

AreiicFo* 27,95 

Black  Cauldren  26.95 

Chessmaster  2000 3005 

Civstai  Castles 10.05 

Dae  Easy  Accounting 4695 

Dala  Manager  ST    52.95 

DBMan  11005 

DB  Master  One  30  05 

Degaa  Etrte  53  95 

Dollars  &  S«r^M  66  95 

Oonatd  Duck's  Playvfound19  95 

Easy  Dfs* S3  96 

Fif>lC*Sd 32,05 

Fif«  Shapes. 3295 

Ftr3iWofd ,., ...34  95 


Fligrn  SimulalOf  II 

Fraction  Action      ,  ,. 

GFABaatc  

GF A  BaSJC  Compiler 

Hign  dollar 

I  S  Talk 

Isgor  PortlpliO 

Jousl 

K  Swrldi 

Kinbetama 

Kings  Ouesl  I.  tl  or  III 

LaltcaC 

Leader  Board 

Marv  WilhamsC 

Math  Talk 

MihIUC  Studio   

Ptiamasie  II 

Ftkanlasie 

Pnr^i  Master  Pius 

Psion  Ch«w 

Publishing  Panner 

SD.I      

Siieni  ServKE 

Sk¥<ci  

Space  Ouesl 

Spetter  Bee 
Swflcak:ST 
TflfTtti  frmrm 
Time  Banditi 
VIP  Prolesswnal 

Wofd  Wnter  ST 

Z-Time  1040 

ZTme520 


.34.05 
26  05 

.52  95 
52  95 
32  05 
3*95 

t32  95 
1«96 

25  05 

26  95 
32  05 
99  05 
26  95 

119  95 
32  95 
39  96 
26  05 
26  05 
26  05 
3995 
99  95 
32  05 
26  95 
.31  95 
32  95 
32  95 
52  95 
26  95 
26  95 
166  95 
.52  96 
.49  96 
.33.95 


IBM  SOFTWARE 

AAemalB  Reality  Itie  Oty  26  95 

ATCfKm  10  95 

Bigjanc*  ol  P<3w«t  33  95 

Bl«ck  Cauidwi  2695 


Uxitf^mtt 23  95 

Chessmsstor  2000 27  95 

ChpAn  Vol  1  -Newsroom  19  96 


No  surcharge  for  MasterCard  M  or  Visa 

Ordenng  Informaiion  Cf&ifi  Card  -  Have  numbef ,  ex^ralton  d*i1e.  stuppr^  address  and  DAY  phone  nurribet  ready  with  order  PereOfia)  and  company  checks  Call  onier  hi  -  yoo  will  reoewe  an  ordef  number, 
send  order  number  and  check  lo  the  P  O  Box  listed  Altow  1 4  Business  Days  kx  check  to  clear  Mcxiey  Orders  Can  ofttef  m  -  you  will  receive  an  order  number,  send  numbef  wth  nnoney  order  to  P  O  Bok  listed 
Shippir^  Corfcoental  USA  -  AH  Otters  add  3%,  minimum  S3  00  HI.  AK.  Canada  add  5'o.  min<rTxim  S5  00  All  oihef  order  areas  add  1 5" » mimrr^um  SlO  00  No  C  O  0  s  over  S 1 00  00.  add  an  addrtiorai  S3  00 
shflDpogchargeslorCOD  Afl  areas  no<  serviced  tjyU  PS  witf  be  shipped  lirstdassnsurednnajJ  All  shippng  charges  m  excess  of  the  above  terms  will  be  added  AM  goods  are  new  and  include  factory  wairanty 
AJ]  de*9Cttv«a  mutt  hmvt  «  r«tam  authorizatiori  numbw.  Please  can  t3i3)59S^7ee  to  oWam  an  R  A.  #  or  re*um  wi  not  be  acjoepted  Pnoes  and  avatebihty  subject  to  cfiange  wrthout  notee.  Al 
correspondence  should  be  sent  to  P.O.  Box  75  -  Wayne.  Ml  48184 


in  a  loose-leaf  binder. 

Scholastic  Software,  730  Broadway^ 
New  York,  NY  10003 
Circle  Reader  Service  Number  228. 


Desk  Accessory 
For  Macintosh 

Target  Software  has  begun  shipping 
Memorandum,  a  desk  accessory  that  al- 
lows users  to  attach  electronic  "sticky 
notes"  to  files  and  documents.  They  can 
be  attached  to  cells  in  spreadsheets,  fields 
in  a  database,  or  a  portion  of  text  in  a 
word  processing  document.  These  notes 
can  then  be  popped  up  at  the  user's 
discretion.  All  note  files  are  managed  via 
a  window  called  the  Note  Manager, 
which  allows  files  to  be  imported  (ap- 
pended) and  exported  (saved  to  another 
file).  It  also  allows  users  to  perform 
substring  searches  through  all  notes  v^th 
the  click  of  the  mouse,  as  well  as  several 
other  housekeeping  functions. 

Memorandum  is  compatible  with  the 
Madntosh  512K,  Plus,  SE.  and  U,  It  sup- 
ports aU  hard  disk  drives  and  runs  with 
virtually  all  Macintosh  applications  that 
support  desk  accessories.  Suggested  re- 
tail price  is  $99.95. 

Target  Software,  14206  S.W.  136th 
St.,  Miami,  FL  33186 
Circle  Reader  Service  Number  229. 


New  Amiga  Word  Processor 

New  Horizons  Software,  publisher  of 
Flow,  an  outline  processor  for  the  Amiga, 
is  now  shipping  ProWrite,  a  sophisticated 
word  processor  for  the  Amiga.  Its  many 
features  allow  you  to  do  things  like  create 
and  edit  documents  using  multiple  fonts, 
sizes,  styles,  and  colors;  include  IFF  color 
graphics  in  your  word  processing  docu- 
ments; edit  up  to  eight  documents  at  one 
time,  then  cut  and  paste  between  them; 
and  use  the  mouse  or  keyboard  for  all 
commands.  It  fully  supports  mulri- 
tasking  and  all  foreign  characters,  and 
is  compatible  with  Flow. 

ProWrite  retails  for  $124.95. 

New  Horizons  Software,  P.O.  Box 
43167,  Austin,  TX  78745 
Circle  Reader  Service  Number  230, 


Poetry  Generator 

Users  of  IBM  PC  and  compatibles,  Ap- 
ple II,  Macintosh,  and  Atari  ST  comput- 
ers can  now  have  their  computers 
compose  personalized  poems  for  use  in 
greeting  cards  or  other  correspondence. 
Your  Personal  Poet  composes  cus- 
tomized poems  after  the  user  answers 
questions  like  Who  is  this  poem  going  to?, 
What  is  your  message  to  him /her /them?. 
How  can  you  best  describe  him/ 
her /them?.  Would  you  like  your  poem 
light  and  limerical  or  sentimental  and 


serious?,  and  Personalize  your  card  even 
more  with  a  date  or  P.S.  message?.  Taking 
your  answers  to  these  questions,  the 
program  composes  and  displays  a 
unique^  personal  poem  for  and  about 
the  person  or  people  you  want  to  send  a 
card  to.  Then  you  can  print  the  poem 
using  a  decorative  font  onto  special 
5X7  greeting  card-sized  form-fed  pa- 
per, remove  the  peel-off  strip  from  the 
back,  and  fit  it  into  one  of  the  cards. 

The  $9.95  package  includes  the 
software  disk,  sbc  sheets  of  greeting 
card  paper,  four  greeting  card  covers, 
and  four  envelopes. 

Computer  Poet,  P.O.  Box  7707,  In- 
cline Village,  NV  89450 
Circle  Reader  Service  Number  231* 


New  Scenery  Disk  For  Flight 
Simulator  11  And  Jet 

SubLOGIC  has  released  Scenery  Disk 
#7  for  Commodore  64  users  of  Flight 
Simulator  11  and  Jet.  It  covers  the  East 
Coast  of  the  U.S.  in  detail,  from  Wash- 
ington D.C.  through  Key  West,  Florida. 
SD  #7  features  hundreds  of  miles  of 
coastline,  many  rivers  and  roads,  rail- 
roads, racetracks,  transmitter  towers 
(some  with  blinking  lights  at  night), 
and  elevated  bridges  that  cast  shadows. 
Highly  detailed  sight-seeing  areas  are 
now  available,  along  with  more  generic 
scenery  areas  that  include  enough  radio 
NAVaids  and  refueling  facilitators  to 
keep  users  occupied  for  a  long  time. 
Over  130  airports  and  a  dozen  military 
airports  are  included. 

Scenery  Disk  #7  is  available  for 
$19.95  (plus  $2  shipping  and  handling 
for  mail  order). 

SubLOGIC,    713    Edgebrook   Dr., 
Champaign,  IL  61820 
Circle  Reader  Service  Number  232. 


Educational  Software  For 
Commodore,  AppEe 

Gamco  Industries  announces  Chance 
It!:  A  Game  of  Details  for  Commodore  64 
and  Apple  Il-series  computers. 

This  two-player  educational  game 
uses  a  TV  game-show  format  to  encour- 
age students  to  read  for  detail,  and  in- 
cludes a  complete  student  management 
system  as  well  On  each  turn,  students 
are  asked  a  question  and  whether  they 
want  to  "chance  it/'  If  they  don't,  they 
read  a  paragraph  and  answer  a  question 
concerning  details.  If  they  answer  cor- 
rectly, they  get  to  place  one  of  their 
markers  on  the  game  board.  If  students 
choose  to  chance  it,  they  are  shown  a 
randomly  chosen  message  which  may 
instruct  them  to  place  a  free  marker, 
read  a  paragraph  and  answer  the  ques- 
tions, lose  a  marker,  or  give  the  other 
player  a  free  marker. 


Apple  II  and  Commodore  64  ver- 
sions are  available  for  third-  and 
fourth -grade  levels,  and  for  fifth-  and 
sixth-grade  levels  at  $39.95  each. 

Gamco  Industries,  P.O.  Box  1911,  Big 
Spring,  TX  79721 
Circle  Reader  Service  Number  233. 


Speech  Construction  Set 

Covox  has  introduced  Speech  Construc- 
tion Set,  a  powerful  speech-editing  tool 
that  facilitates  the  creation  of  high-quali- 
ty speech  from  data  encoded  using  Co- 
vox's  Voice  Master  module.  Since  the 
output  is  digitally  constructed  from  the 
user's  own  voice  patterns,  the  resulting 
speech  is  clear  and  natural -sounding. 
Speech  Construction  Set  provides  sophis- 
ticated routines  for  editing  and  modify- 
ing the  amplitude  portions  of  stored 
speech  for  refined  quality  during 
playback. 


Speech  Construction  Set,  from  Covox,  is 
a  multi-featured  speech-editing  tool 

The  program  is  available  for  Apple 
n-series  computers  at  a  suggested  retail 
price  of  $49,95,  and  for  Commodore  64 
at  $39.95. 

Covox,  675-D  Conger  St.,  Eugene, 
OR  97402 
Circle  Reader  Service  Number  234. 


Classic  Adventure  Game 
Now  Available  For  Macintosh 

A  spate  of  adventure  games  have  come 
down  the  pike  since  Don  Woods  and 
William  Crowther  codeveloped  the  ac- 
knowledged first  of  this  popular  com- 
puter genre,  Adventure  (sometimes 
referred  to  as  Original  Adventure),  This 
classic  is  now  available  for  the  Madntosh 
(128/512K)  for  $29.95. 

Other  versions  available  include 
IBM  PC  and  compatibles  ($24.95;  Norell 
Data  Systems,  PO,  Box  70127,  3400  Wit- 
shire  Blvd.,  Los  Angeles,  CA  90010)  and 
Atari  eight-bit  ($14.95;  Lotsabytes,  15445 
Yentura  Blvd.,  Suite  lOG,  Sherman  Oaks, 
CA  91413), 

L.W.  James  &  Assoc,  1525  E.  County. 
Rd.  58,  Ft.  Collins,  CO  80524 
Circle  Reader  Service  Number  235. 
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WIN        $ 
THE  LOTTO 

With  Your  Computer! 

Forget  random  numbers.  This  program 
for  home  computers  does  an  actual 
analysis  of  the  past  winning  numbers. 
This  amazing  program  will  quickly  pro- 
vide you  with  all  the  data  you  need  to 
predict  which  numbers  will  likely 
come  up  in  subsequent  drawings.  All 
consistent  lottery  winners  use  some 
kind  of  system  based  on  the  past  win- 
ners. Using  the  real  power  of  your  com- 
puter gives  you  a  definite  edge.  It's 
menu  driven  and  all  you  do  is  add  the 
latest  winners  each  week  and  the  pro- 
gram does  the  rest  in  seconds.  On 
screen  or  printer  it  shows  hot  and  cold 
numbers,  frequency,  groups,  sums- of - 
digits,  odd /even,  wheels  numbers  and 
more.  No  thick  manual  to  read.  It  even 
has  a  built-in  tutorial. 
Ask  your  software  dealer  or  call  or 
write: 


[    Soft 


SOFT-BYTE 

P.O,  Box  556  F.  Park 
Dayton,  Ohio  45405 
(513)233-2200 


THE  LOTTO  PROGRAM  is  designed  for  all 
6  &  7  draw  lorto  games   (up  ro  49  numbers)! 

DONT  PLAY  LOTTO  WITHOUT  IT! 

APPLE&  M/SDOS  IBM   . 24.95 

COMMODORE  &  ATARI ......  .21.95 

TRS-SO&MODIII.IV .  ..21.95 

MACINTOSH  (super  version) 29.95 

Please  add  12.00  shipping/ 
handling.  F«»t  »eTvlc«  on 
charge  cards. 


PASCAL  TO  BASIC 
TRANSLATOR 


PAS-BAS  1.0  trans  la  tor/ tutor  Is  ail  you 
need  to  learn  and  use  the  powerful  PASCAL 
programming  language. 

•  PASCAL  lo  BASIC  traniJator.  A  first  of  ii's  kjnd 
software  wnting  (ooJ  ir  makes  s  dynamic  anafysis  oi  s 
PASCAL  program  and  generates  a  compact  and  efficient 
equfvaient  in  BASfC.  The  SASJC  code  generated  by 
PAS-BAS  It  100%  ready  to  ain  rn  any  personal 
computer. 

•  jnteractfve  on-fine  tutorfaf.  ll  covers  everything, 
from  frrst  principles  to  advanced  tecnnrques, 

•  Easy  to  use  Integrated  Editor, 

ORDER  yOURS  NOWl  PAS-BAS  ISITI 

IBM  APPLE  COMMODORE 

To  order  send  check  or  money  order  for  S49. 95  * 
53.00  shipping  And  handling  to: 


ISIT 


irntfrtainywf  Softvwinif  tot  tntoftmition  /inti  Traniiaiion 

PO  Box  773*06 

Houston.  TX  77215-3406 

[713}  93^1697 


PrecisiOJl  Data  Products'" 

POLY  PACK  SVi" 
DISKETTES 

(From  Leading  Mfr.) 

'  Sp'VVhf  ^'^^^         100%  Error  Free 
:  ^^  I  aos  utBlirr}Q  Warranty 

•  Envelopes  ^  ' 

Sold  m  Lots  of  100  Only 

^^^  SONY  POLY  PACK 
^^^-^  ^■^"  D'SKETTES 

High  Capacity  Dara  Storage,  Meets  the  requirements  of 
all  3-5"  Micro  DiisKetta  Drives 

SS135TPI     $1.17  ea. 

DS135TPI     .  .  .  : $1.29  ea. 

PRINTER  RIBBONS 

Quality  replacements  for  most  popular  printers.  Min76. 

Apple  Imagewrlter  Black $3.95  ea. 

Apple  Scribe  Black $2.95  ea. 

Epson  LX  80/90        Black  .  .  ,  .  .  $2.95  ea. 

Okidata  80/82/83     Black $1.75  ea. 

Toshiba  1350  Black $4,a9ea. 

Color  Ribbcni  Av«llabla  A1  Great  Savtngt  Too 

MIn.  Order  325,00.  Add  10%  for  less  than  50 
disks.  SiH:  Continental  USAS4.00/100orfewer 
disks.  S2.00  per  dozen  ribboris.  Reduced  ship- 
ping charge  on  larger  quantities.  Foreign  or- 
ders. APO/FPO.  please  call.  Ml  residents  add  4% 
tax.  Prices  subject  to  change  without  notice. 
Hours:  8:30  AM  -  7:00  PM  ET. 


Precision  Data  Products 

P.O.  Box  8367,  Grand  Rapids,  Ml  49518 
(616)452-3457  •  Michigan  t -800-63 2-2468 
Outside  Michigan  1-800-258-0028 


Save  on  BROWNOUT  protection! 
LINE  CONDITIONER 

keeps  power  constant  during 
voltage  sags  and  power  surges! 

Prevents  damage  and  downtime  on  computers, 
ptione  systems,  casti  registers,  etc.  by  providing  full 
voltage  support  when  AC  input  power  varies  up  or 
down.  Maintains  constant  output  of  120V.  Line 
Stabilizer  is  a  stepped  transformer  system  that  has 
/]/ff/Ter  efficiency  Itian  CVT's  (constant  voltage  trans- 
formers) and  gives  lower  waveform  distortion  at  FAR 
LOWER  COST.  Buiit-in  spike  and  noise  suppressior^. 
1-Year  warranty! 


12Q0-Watt,  4  Outlet 

ONLY  $199 


IsaO-Watt,  6  Outlet 

ONLY  5259 


Order  toll  free  1-800-662-5021 

IN  ILLINOIS  CALL  1>312-648-2191  OR  MAIL  COUPON 


INDUS-TOOL,  730  W.  Lake  Street 

Dept.  C,  Chicago,  tL  60606 

Enclosed  is  $ 


_or  charge  on 


D  MasterCard  [JV\sa  U  Expires _ 
Card  No 


Send  ni20D-Watt  @  $199  DlflOO-Watt  ®  $259 


Cornpany 

Address    

City.StaieZip  . 
Phone  


FIFTEEN  TIMES  THE  POWER! 


90%  +  CONFIDENCE  LEVEL 


Why  purchase  only  1  moroughbred  handicapping 
strategy  when  you  can  have  the  POWER  o(  the  15  most 
popular  handicapping  straiegies  available? 

A  proven  computer  program,  designed  by  an  MBA.  of 
Finance,  combines  improved  variations  of  the  15  most 
popular  handicapping  strategies  into  one  easy  program 
This  POWERFUL  program  called  Multi-Strats  can 
analyze  a  race  using  15  strategies  in  a  fraction  of  the 
time  you  analyie  a  race  using  just  1  strategy. 

Simply  type  in  the  answers  to  the  program  questions.  All 
the  info  is  in  the  Daily  Racing  Form,  The  results  of  the  1 5 
strategies  will  automatically  appear  on  your  screen  or 
printer.  Multi-Strats  then  tabulates  the  1 5  strategy  totals 
to  give  you  an  ultimate  number  for  each  horse. 

When  to  or  more  strategies  select  the  same  horse  to 
win.  that  horse  has  over  a  90%  chance  of  winning, 

Multi-Strats  package  includes:  *  15  strategies  *  40 
page  book  (with  money  management)  *  5Vi'  or  3'/i 
disk  or  tape  *  telephone  hotline  ♦  first  class  delivery  ♦ 
BONUS  #1  Pick  6-10  Horse  Program  *  BONUS  #2  Lot- 
tery Program  *  BONUS  *3  Free  Las  Vegas  trip  eligibili- 
ty *  All  for  $69.95  (Add  S2  S  &  H) 

Multi-Strats'  Video  Tutorial  is  available  for  beginning 
computer  operators  and/or  handicappers  on  VMS  or 
Beta  for  $19.95.  (Add  S3  S  &  H) 

Order  by  Money  Order.  Check,  Visa,  MC.  AMEX,  or 
C  O.D  to  Banana  Software,  Inc.  Dept.  SA,  6531  Park 
Avenue,  Kent.  OH  44240. 

ORDERS  (216)  673-6969  (24  hrs.) 
INOUIRfES  (216)  673^6167  (recording) 


ALL  MODEMS 


COMMODORE 
APPLE 
ATARI 


IBM 

RADIO  SHACK 

COLECO 


LQTTQ  GIPHER.. 


err  THE  BIST  OOOS  ON  ANV  LOTTEBV 

Six  NUMBER  -  PICK  POtrR  -  DAJLV  GAME 

■  mOOUCU  FOUfl  COHWNATION*  Of 

MUMMM  TO  CH004C  mOM. 
.  AMY  AMOUKT  OF  ftUlA  AMD  MUWMM  CAK 


.  rrmrn  our  patt  lotto  NU«Mtns  oiuwn. 

»A*T  COMPUTIH  nCKl,  AHEI  HUtWCN  OfUW 
FIWOUtNCY  U«T. 
.  MLMOOM  NUMMft  OCMtfUTOH  MdUOCO. 


"Window 


SUPER  Hi-RESOLUnON  DRAWING  IN  MtfLTl  OR  MO?*0  COLOR 


•  UMMOfl,  FUP.  AMD  iCnOLLMa  WWDOHl 

•  ZOOtUXPAMM  A  WIHPOW  TO  EMXMLe  ttu 

•  BAVf  AMD  LOAD  VOUM  WMOOWa  OH  DWC 

.  ntNTB  em  tinMOAm  001  uTm  Mmtnn 

•  dow  <OL0ft  ATTWiUTia 


■  fOLVOOM  ■HfcK*«VANO,  SHmtK  «HO  MT  ATE,  THEN  tTAlW  AMYWICRI 
.  DOOM  FUOT-WUW  0«  A* EWAHOKl  WWOOW  AJ*0  TOU«  OftAWWOATTWl 


tai.MC-MMM 


STOCK  BROKER- 


PROmS  CUARANTEEB  OR 
VOtiR  MOSEV  BACK 

■uTwa  dooo  OUAUTY,  voiatiu  tuuu  aho 
Liwtin  rwi  TRACHQ  iTtTm  wix  hav<  tou  nju.t 

MVIiTlC  AT  TM  LOWEST  rWCtt  AMO  COfifVtnTMO 
TD  CASH  AI  THE  ITOCX  HEAfB  IT!  KAX. 
■    TECHMCAL  TTUOtMHJ  TKAT  WOKKt 

1  UP  TO  lU  WTOat*  OH  A  PitIL 


UiiF^jii^it'^iri^i 


123.95 
COt*aXPE,   CCHKXXftS.  AMIW,  AhO   l&*  ST5TEM5 


ACORN  OF  INDIANA,  INC. 


2721  OHIO  STREET 
MICHIGAN  Cmr,  IN  46360 


219-879-2284 


SHIPPING  AND  HAJ^^DLING,  ADD  11.50  -  C.O.D,'S  ACCEPTED 
VISA  AMD  MASTER  CARD  ORDERS  ADD  *% 
INDIANA  RESIDE.NTS  ADD  i%  SALES  TAX 


COMPUTE! 's 

Author's  Guide 


Most  of  the  following  suggestions  serve  to  improve 
the  speed  and  accuracy  of  publication.  COMPUTE!  is 
primarily  interested  in  new  and  timely  articles  on  the 
Commodore  64/128,  Atari,  Apple,  IBM  PC/PCjr, 
Amiga,  and  Atari  ST.  We  are  much  more  concerned 
with  the  content  of  an  article  than  with  its  style,  but 
articles  should  be  clear  and  well-explained. 

The  guidelines  below  will  permit  your  good  ideas 
and  programs  to  be  more  easily  edited  and  published: 

1.  The  upper  left  comer  of  the  first  page  should 
contain  your  name,  address,  telephone  number,  and 
the  date  of  submission. 

2.  The  following  information  should  appear  in  the 
upper  right  comer  of  the  first  page:  If  your  article  is 
specifically  directed  to  one  make  of  computer,  please 
state  the  brand  name  and,  if  applicable,  the  BASIC  or 
ROM  or  DOS  version(s)  involved.  In  addition,  please 
indicate  the  memory  requirements  of  programs. 

3.  The  underlined  title  of  the  article  should  be 
placed  about  %  of  the  way  down  the  first  page, 

4.  Following  pages  should  be  typed  normally,  ex- 
cept that  in  the  upper  right  corner  there  should  be  an 
abbreviation  of  the  title,  your  last  name,  and  the  page 
number — for  example:  Memory  Map/Smith/2. 

5.  All  lines  within  the  text  of  the  article  must  be 
double-  or  triple-spaced.  A  one-inch  margin  should  be 
left  at  the  right,  left,  top,  and  bottom  of  each  page.  No 
words  should  be  divided  at  the  ends  of  lines.  And 
please  do  not  right- justify.  Leave  the  lines  ragged. 

6.  Standard  typing  paper  should  be  used  (no  eras- 
able, onionskin,  or  other  thin  paper),  and  typing 
should  be  on  one  side  of  the  paper  only  (upper-  and 
lowercase). 

7.  If  you  are  submitting  more  than  one  article, 
send  each  one  in  a  separate  mailer  with  its  own  tape 
or  disk. 

8.  Short  programs  (under  20  lines)  can  easily  be 
included  within  the  text.  Longer  programs  should  be 
separate  listings.  It  is  essential  that  we  have  a  copy  of 
the  program,  recorded  twice,  on  a  tape  or  disk.  If  your 
article  was  written  with  a  word  processor,  we  request 
that  you  include  a  copy  of  the  text  file  on  the  tape  or 
disk.  If  you  include  a  copy  of  your  article  on  disk, 
please  save  the  article  as  plain  text,  without  any  spe- 
cial formatting  characters  or  control  codes.  Most  word 
processors  provide  an  option  for  saving  a  document  as 
plain  ASCII  text  or  in  unformatted  form.  Please  use 
high-quality  10-  or  30-minute  tapes  with  the  program 
recorded  on  both  sides.  The  tape  or  disk  should  be 
labeled  with  your  name,  the  title  of  the  article,  and,  if 
applicable,  the  BASIC/ROM/DOS  version(s).  Tapes 
are  fairly  sturdy,  but  disks  need  to  be  enclosed  within 
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plastic  or  cardboard  mailers  (available  at  photography, 
stationery,  or  computer  supply  stores).  If  possible, 
programs  written  in  machine  language  or  a  compiled 
language  should  include  source  code  (or  an  annotated 
disassembly  if  the  program  was  written  with  a  ma- 
chine language  monitor). 

9.  A  good  general  rule  is  to  spell  out  the  numbers 
zero  through  ten  in  your  article  and  write  higher 
numbers  as  numerals  (1024).  The  exceptions  to  this 
are:  Figure  5,  Table  3,  TAB(4),  and  so  on.  Within  ordi- 
nary text,  however,  the  zero  through  ten  should  ap- 
pear as  words,  not  numbers.  Also,  symbols  and 
abbreviations  should  not  be  used  within  text:  Use  and 
(not  &),  reference  (not  ref.),  through  (not  thm), 

10.  For  greater  clarity,  use  all  capitals  when  refer- 
ring to  keys  (RETURN,  TAB,  ESC,  SHIFT),  BASIC 
words  (LIST,  RND,  GOTO),  and  three  languages 
(BASIC,  APL,  PILOT).  Headlines  and  subheads 
should,  however,  be  initial  caps  only,  and  emphasized 
words  are  not  capitalized.  If  you  wish  to  emphasize, 
underline  the  word;  then  it  will  be  italicized  during 
typesetting. 

11.  Articles  can  be  of  any  length — from  a  single- 
line  routine  to  a  multiple-issue  series.  The  average  ar- 
ticle is  about  four  to  eight  double-spaced,  typed  pages. 

12.  We  do  not  consider  articles  which  are  submit- 
ted simultaneously  to  other  publishers.  If  you  wish  to 
send  an  article  to  another  magazine  for  consideration, 
please  do  not  submit  it  to  us. 

13.  COMPUTE!  pays  between  $70  and  $800  for 
published  articles.  In  general,  the  rate  reflects  the 
length  and  quality  of  the  article.  Payment  is  made 
upon  acceptance.  Following  submission  (to  Editorial 
Department,  COMPUTE!  Magazine,  P.O.  Box  5406, 
Greensboro,  NC  27403),  it  will  take  from  three  to  six 
weeks  for  us  to  reply.  If  your  work  is  accepted,  you 
will  be  notified  by  a  letter  which  will  include  a  con- 
tract for  you  to  sign  and  return.  Rejected  martuscripts 
are  returned  to  authors  who  enclose  a  self-addressed, 
stamped  envelope, 

14.  If  your  article  is  accepted  and  you  have  since 
made  improvements  to  the  program,  please  submit  an 
entirely  new  tape  or  disk  and  a  new  copy  of  the  arti- 
cle reflecting  the  update.  We  cannot  easily  make  revi- 
sions to  programs  and  articles.  It  is  necessary  that  you 
send  the  revised  version  as  if  it  were  a  new  submis- 
sion entirely,  but  be  sure  to  indicate  that  your  submis- 
sion is  a  revised  version  by  writing  Revision  on  the 
envelope  and  the  article. 

15.  COMPUTE!  does  not  accept  unsolicited  product 
reviews.  If  you  are  interested  in  serving  on  our  panel 
of  reviewers^  contact  the  Features  Editor  for  details. 
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It's  easy  to  maki^c?  4  copy 
It's  quick. 
It's  illegal. 
It's  wrong. 

It's  hard  to  believe. 

People  who  wouldn't  think  of  shoplifting  a  software 
product  on  their  lunch  hour  don't  think  twice  about 
going  back  to  the  office  and  making  several 
illegal  copies  of  the  same  software. 

Making  unauthorized  copies  of  software  is  a  violation  of  U.S7 
Copyright  Law;    Yet,  the  problem  has  reached  epidemic 
proportions  because  many  people  are  unaware,  or  simply 
choose  to  ignore  the  law.    The  software  industry  is  urging 
decision-makers  and  software  users  to  take  steps  to  stop  soft- 
ware piracy  in  their  organizations.    In  the  meantime,  the  Indus- 
try  has  been  forced  to  prosecute  willful  copyright  violators. 

There  are  legal,  moral  and  economic  Imperatives  forbidding 
theft  of  copyrighted  software. 


jL^0if<^' 


There  is  a  free  pamphlet  on  the  subject.    Call  or  write  for  a 
copy.    A  copy.    A  copy,   A  copy  for  everyone  you  know. 
Please  ask  for  Priscilfa. 


KK: 


A 


ADAPSO 

1 300  North  Seventeenth  Street 
Arlington,  Virginia  22209 
(703)  522-5055 


COMPUTEi's  Guide 

To  Typing  in  Programs 


Computers  are  precise — t3^e  the  pro- 
gram exactly  as  listed,  including  neces- 
sary punctuation  and  symbols,  except 
for  special  characters  noted  below.  We 
have  provided  a  special  listing  conven- 
tion as  well  as  a  program  to  check  your 
typing — 'The  Automatic  Proofreader." 

Programs  for  the  IBM,  TI-99/4A, 
and  Atari  ST  models  should  be  typed 
exactly  as  listed;  no  special  characters 
are  used.  Programs  for  Commodore, 
Apple,  and  Atari  400/800/XL/XE 
computers  may  contain  some  hard-to- 
read  special  characters,  so  we  have  a 
listing  system  that  indicates  these  con- 
trol characters.  You  will  find  these 
Commodore  and  Atari  characters  in 
curly  braces;  do  not  type  the  braces.  For 
example,  {CLEAR}  or  {CLR}  instructs 
you  to  insert  the  symbol  which  clears 
the  screen  on  the  Atari  or  Commodore 
machines.  A  complete  list  of  these  sym- 
bols is  shown  in  the  tables  below.  For 
Commodore,  Apple,  and  Atari,  a  single 
symbol  by  itself  within  curly  braces  is 
usually  a  control  key  or  graphics  key.  If 
you  see  {A},  hold  down  the  CONTROL 
key  and  press  A,  This  will  produce  a 
reverse  video  character  on  the  Commo- 
dore (in  quote  mode),  a  graphics  char- 
acter on  the  Atari,  and  an  invisible 
control  character  on  the  Apple. 

Graphics  characters  entered  with 
the  Commodore  logo  key  are  enclosed 
in  a  special  bracket:  \<Ai\,  In  this  case, 
you  would  hold  down  the  Commodore 
logo  key  as  you  type  A.  Our  Commo- 
dore listings  are  in  uppercase,  so  shifted 
symbols  are  underlined.  A  graphics 
heart  symbol  (SHIFT-S)  would  be  listed 
as  S.  One  exception  is  {SHIFT- 
SPACE}.  When  you  see  this,  hold  down 
SHIFT  and  press  the  space  bar.  If  a 
number  precedes  a  symbol,  such  as  {5 
RIGHT},  {6  S},  or  \<S  Q>\,  you  would 
enter  five  cursor  rights,  six  shifted  S's, 
or  eight  Commodore-Q's.  On  the  Atari, 
inverse  characters  (white  on  black) 
should  be  entered  with  the  inverse  video 


Atari  400/800/XL/XE 

When  you  see       Type 


tCLEAR> 

CUP> 

CDOWNl 

CLEFT> 

tRIQHT> 

tBACK  S> 

CDELETE> 

CINSERT> 

CDEL  LINE> 

<INS  LINE> 

CTAB> 

<CLR  TAB> 

iSET    TAB> 

<BELL> 

iEBO 


ESC 
ESC 
ESC 

esc 

ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 


SHIFT  < 
CTRL  - 
CTRL  = 
CTRL  + 
CTRL  i 
DELETE 
CTRL  DELETE 
CTRL  INSERT 
SHIFT  DELETE 
SHIFT  INSERT 
TAB 

CTRL  TAB 
SHIFT  TAB 
CTRL  2 
ESC 


See 

PF 

f 

4 

a 
u 
□ 

Q 
Q 


Clear  Screen 
Cursor  Up 
Cursor  Donti 
Cursor  Left 
Cursor  Right 
Backspace 
Delete  character 
Insert  character 
Delete  line 
Insert  line 
TAB  key 
Clear  tab 
Set  tab  stop 
Ring  buzzer 
ESCape  key 


Press: 


SHIFT 

CLR/HOME 

aR/HOME 

SHIFT 

t   CRSR  1 

t  CRSR  \ 

SHIFT     ^ 

►-CRSR-* 

—  CRSR-* 

CTRL          9 

CTRL          0 

CTRL          i 

CTRL 

CTRL 

CTRL 

CTRL 

CTRL 

CTRL 

CTRL 

See: 


n 

[3 


na 


Commodore  PET/CBM/VIC/64/128/16/+4 

When>ft)u 
Read: 

§23 

isi 
i»§ 

|F1  ) 
{  F2  } 
I  F3  } 
{F4  J 
{  F5  } 
{  F6} 
{  F7  J 
{F8) 


When  Mdu 
Read: 

{CLR} 

{HOME} 

{UP} 

{DOWN} 

{LEFT} 

{RIGHT} 

{RVS} 

{OFF} 

{BLK} 

{WHT} 

{RED} 

{CYN} 

{PUR} 

(CRN} 

{BLU} 

{YEL} 


Press: 


COMMODORE 


^B 

commodore]  [T] 


El 


commodore 


i\ 


commodore  I  [7]  RB 
commodore]  \~r\  EZ 


commodore]  \T]  m 
cqmmodor?!  [Tj  n 


so 


commodore      8 

■  ■ 

■  • 

h 

B 

SHIFT 

fl 

Bl 

(3 

9 

SHIFT 

B 

1! 

B 

m 

SHIFT 

B 

17 

n 

I  SHIFT  I  [~i7~ 
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key  (Atari  logo  key  on  400/800  models). 

Whenever  more  than  two  spaces 
appear  in  a  row,  they  are  listed  in  a 
special  format.  For  example,  {6 
SPACES}  means  press  the  space  bar  six 
times.  Our  Commodore  listings  never 
leave  a  single  space  at  the  end  of  a  line, 
instead  moving  it  to  the  next  printed 
line  as  {SPACE}. 

Amiga  program  listings  contain 
only  one  special  character,  the  left  ar- 
row {*-)  symbol.  This  character  marks 
the  end  of  each  program  line.  Wherever 
you  see  a  left  arrow,  press  RETURN  or 
move  the  cursor  off  the  line  to  enter 
that  line  into  memory.  Don't  try  to  type 
in  the  left  arrow  symbol;  it's  there  only 
as  a  marker  to  indicate  where  each  pro- 
gram line  ends. 

The  Automatic  Proofreoder 

Type  in  the  appropriate  program  listed 
below,  then  save  it  for  future  use.  The 
Commodore  Proofreader  works  on  the 
Commodore  128,  64,  Plus/4,  16,  and 
VIC-20.  Don't  omit  any  lines,  even  if 
they  contain  unfamiliar  commands  or 
you  think  they  don't  apply  to  your  com- 
puter. When  you  run  the  program,  it 
installs  a  machine  language  program  in 
memory  and  erases  its  BASIC  portion 
automatically  (so  be  sure  to  save  sever- 
al copies  before  running  the  program 
for  the  first  time).  If  you're  using  a 
Commodore  128,  Plus/4  or  16,  do  not 
use  any  GRAPHIC  commands  while 
the  Proofreader  is  active.  You  should 
disable  the  Commodore  Proofreader 
before  running  any  other  program.  To 
do  this,  either  turn  the  computer  off  and 
on  or  enter  SYS  64738  (for  the  64),  SYS 
65341  (128),  SYS  64802  (VIC-20),  or 
SYS  65526  (Plus/4  or  16).  To  reenable 
the  Proofreader,  reload  the  program 
and  run  it  as  usual.  Unlike  the  original 
VIC/ 64  Proofreader,  this  version  works 
the  same  with  disk  or  tape. 

On  the  Atari,  run  the  Proofreader 
to  activate  it  (the  Proofreader  remains 
active  in  memory  as  a  machine  lan- 
guage program);  you  must  then  enter 
NEW  to  erase  the  BASIC  loader.  Press- 
ing SYSTEM  RESET  deactivates  the 
Atari  Proofreader;  enter  PRINT 
USR(1536)  to  reenable  it. 

The  Apple  Proofreader  erases  the 
BASIC  portion  of  itself  after  you  run  it, 
leaving  only  the  machine  language  por- 
tion in  memory.  It  works  with  either 
DOS  3.3  or  ProDOS.  Disable  the  Apple 
Proofreader  by  pressing  CTRL-RESET 
before  running  another  BASIC  program. 

The  IBM  Proofreader  is  a  BASIC 
program  that  simulates  the  IBM  BASIC 
line  editor,  letting  you  enter,  edit,  list, 
save;  and  load  programs  that  you  type. 
Type  RUN  to  activate.  Be  sure  to  leave 
Caps  Lock  on,  except  when  typing  low- 
ercase characters. 


Once  the  Proofreader  is  active,  try 
typing  in  a  line.  As  soon  as  you  press 
RETURN,  either  a  hexadecimal  number 
(on  the  Apple)  or  a  pair  of  letters  (on  the 
Commodore,  Atari,  or  IBM)  appears. 
The  number  or  pair  of  letters  is  called  a 
checksum. 

Compare  the  value  displayed  on 
the  screen  by  the  Proofreader  with  the 
checksum  printed  in  the  program  list- 
ing in  the  magazine.  The  checksum  is 
given  to  the  left  of  each  line  number. 
Just  type  in  the  program  a  line  at  a  time 
(without  the  printed  checksum),  press 
RETURN  or  Enter,  and  compare  the 
checksums.  Jf  they  match,  go  on  to  the 
next  line.  If  not,  check  your  typing; 
you've  made  a  mistake.  Because  of  the 
checksum  method  used,  do  not  type 
abbreviations,  such  as  ?  for  PRINT.  On 
the  Atari  and  Apple  Proofreaders, 
spaces  are  not  counted  as  part  of  the 
checksum,  so  be  sure  you  type  the  right 
number  of  spaces  between  quote 
marks.  The  Atari  Proofreader  does  not 
check  to  see  that  you've  typed  the  char- 
acters in  the  right  order,  so  if  characters 
are  transposed,  the  checksum  still 
matches  the  listing.  The  Commodore 
Proofreader  catches  transposition  er- 
rors and  ignores  spaces  unless  they're 
enclosed  in  quotation  marks.  The  IBM 
Proofreader  detects  errors  in  spacing 
and  transposition. 

IBM  Proofreader  Commands 

Since  the  IBM  Proofreader  replaces  the 
computer's  normal  BASIC  line  editor,  it 
has  to  include  many  of  the  direct-mode 
IBM  BASIC  commands.  The  syntax  is 
identical  to  IBM  BASIC.  Commands 
simulated  are  LIST,  LLIST,  NEW, 
FILES,  SAVE,  and  LOAD.  When  listing 
your  program,  press  any  key  (except 
Ctrl-Break)  to  stop  the  listing.  If  you 
enter  NEW,  the  Proofreader  prompts 
you  to  press  Y  to  be  especially  sure  you 
mean  yes. 

Two  new  commands  are  BASIC 
and  CHECK.  BASIC  exits  the  Proof- 
reader back  to  IBM  BASIC,  leaving  the 
Proofreader  in  memory.  CHECK  works 
just  like  LIST,  but  shows  the  checksums 
along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk. 
Then  exit  the  Proofreader  with  the 
BASIC  command,  and  load  the  pro- 
gram as  usual  (this  replaces  the  Proof- 
reader in  memory).  You  can  now  run 
the  program,  but  you  may  want  to  re- 
save  it  to  disk.  This  will  shorten  it  on 
disk  and  make  it  load  faster,  but  it  can 
no  longer  be  edited  with  the  Proofread- 
er. If  you  want  to  convert  an  existing 
BASIC  program  to  Proofreader  format, 
save  it  to  disk  with  SAVE  '' filename' \K, 


Program  1:  Atari 

Proofreader 

By  Charles  Brannon 

100  GRAPHICS  0 

110  FOR  1=^1536  TO  1700:REA 

D  A:POKE  1 , A: CK^CK+As N 

EXT  I 
120  IF  CKO19072  THEN  ?  "E 

rror  in  DATA  Statement 

a.   Check  Typing.": END 


130 
140 

150 
160 


s.    cnecK  I ypi ng .   : emu 

A=USR(1536) 

7  :?  "Autpmatic  Proo-Fr 

eadar  Now  Activated." 
i  END 
i  DATA  104,160,0,185,26, 

3,201,69,240,7 
1  DATA  200,200,192,34,20 

a, 243, 96, 200, 169,74 
I  DATA  153,26,3,200,169, 

6, 153,26,3, 162 

DATA  0,189,0,228,157,: 


Program  2:  IBM  Proofreader 

By  Charles  Brannon 

10  'Automatic  Proofreader  Vers 
ion  3-0  (Lines  205,206  adde 
d/190  deleted/470,490  Chang 
ed  from  V2,0) 
100  DIM  L*<500) ,LNUM (500): COLO 
R  0,7, 7: KEY  OFF:CLS:MAX=0: 
LNUM(0) "65536! 
110  ON  ERROR  OOTO  120: KEY  15, C 
HR»(4)+CHR*<70>;ON  KEY (15) 
eOSUB  640: KEY  (15)  ONsOOT 
0  130 
120  RESUME  130 

130  DEF  SES=&H40;W=PEEK(StH4A) 
140  ON  ERROR  GOTO  650: PRINT: PR 

I NT "Proof reader  Ready. " 
150  LINE  INPUT  L*:Y=^CSRLIN-INT 

(LEN(L*)/W>-1: LOCATE  Y,  1 
160  DEF  SEB=0:PDKE  1050,30:POK 
E  1052, 34: POKE  1054,0: POKE 
1055, 79: POKE  1056, 13: POKE 
1057, 28: LINE  INPUT  L*:DEF 
SEO:IF  L*==""  THEN  150 
170  IF  LEFTt(L*,l)="  "  THEN  L* 
=MID*(L»,2):G0TD  170 
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1B0    IF   VAL CLEFT* (LS,2>)=0   AND 
MID* (L», 3,1)="    "    THEN   L*=M 
ID*(L*,4) 

200    IF   ASCCL*>>57    THEN    260    'no 
line   number y    therefore  co 
mmand 

205  BL=INSTR(L*, "  ">:IF  BL=0  T 
HEN  BL*='L*jBOTO  206  ELSE  B 
L*=LEFT»CL*,BL-1) 

206  LNUM=VAL(BL*) :TEXT*=MID$(L 
*, LEN  CSTR* (LNUMJ ) +1 ) 

210  IF  TEXT*=""  THEN  BOSUB  540 

:IF  LNUM=LNUM(PJ  THEN  80BU 

B  560: GOTO  150  ELSE  150 
220  CKSUM=0;FOR  1=1  TO  LEN(L*) 

:CKSUM=CCKSUM+ASC(MID*(L*, 

I>>*I>  AND  255= NEXT: LOCATE 
Y,l:  PRINT  CHR*(65^-CKSUM/1 

6  >  +CHR* ( 65+ ( CKSUM  AND  1 5  > ) 

+"  "+L* 
230  GOSUB  540: IF  LNUM(P)=LNUM 

THEN  L*<P)=TEXT*sQaTD  150 

"replace  line 
240  GOSUB  580: GOTO  150  'insert 

the  line 
260  TEXTt="":FDR  1=1  TO  LEN<L* 

) :A=ASC(MID*<L*, I) J :TEXT*= 

TEXT*+CHR*(A+32»CA>96   AND 

A< 123)): NEXT 
270  DELrMITER=INSTR<TEXT*, "  ") 

! COMMAND*=TEXT*: AR6*=" " : IF 
DELIMITER  THEN  COMMAND*=L 

EFT* (TEXT*, DELIMITER-! ) : AR 

G**MID* {TEXT*, DELIMITER+1 ) 
ELBE  DELIMITER=INSTR(TEXT 

»,CHR*(34)>;IF  DCLiniTER  T 

HEN  COMMAND*=LEFT* ( TEXT* , D 

ELIMITER-1 ) : ARO*=MID* (TEXT 

*,  DELIMITER) 
280  IF  CaMMAND*<>"LIST"  THEN  4 

10 
290  OPEN  "scrn:"  FOR  OUTPUT  AS 

#1 
300  IF  ARG*=""  THEN  FIRST=0:P= 

MAX-1:G0T0  340 
310  DELIMITER=INSTR(AR6*, "-"): 

IF  DELIMITER=0  THEN  LNUM=V 

ALCARG*) : GOSUB  540:FIRST=P 

:GOTO  340 
320  FIRST=VALCLEFT*(ARG*,DELIM 

ITER) ) : LAST=VAL (MID*  £ARG*, 

DELIMITER+1) ) 
330  LNUM=FIRST:GOSUB  540: FIRST 

=P: LNUM=LAST: BOSUB  540: IF 

P=0  THEN  P=MAX-1 
340  FDR  X=FIRST  TO  P:N*=MID*CS 

TR*(LNUM(X)  >  ,2)+*'  " 
350  IF  CKFLAS=0  THEN  A*="'*:GOT 

0  370 

360  CKSUM=0:A*==N*+L*(X):FOR  1  = 

1  TO  LEN  <  A* )  :  CKSUM==  C  CKSUM+ 
ASC(MID*(A*,I)>»I)  AND  255 
: NEXT: A*=CHRt (65+CKSUM/ 16) 
+CHR*  (65+ (CKSUM  AND  15))  +  '* 

370  PRINT  #1,A*+N*+L*(X) 

380  IF  INKEY*<>—  THEN  X=P 

390  NEXT  : CLOSE  #1:CKFLAS=0 

400  GOTO  130 

410  IF  CDMMAND*="LLIST"  THEN  0 

PEN  "Iptl:"  FOR  OUTPUT  AS 

«1:Q0T0  300 
420  IF  COMMAND*^ "CHECK"  THEN  C 

KFLAG-1:B0T0  290 
430  IF  C0MMAND*<>"SAVE"  THEN  4 

50 

440  GOSUB  600: OPEN  ARG*  FOR  OU 
TPUT  AS  »1:ARG*=="'*:G0T0  30 
0 

450  IF  CDMMAND*<>"LOAD"  THEN  4 
90 


460  GOSUB  6005  OPEN  ARG*  FOR  IN 

PUT  AS  #1:MAX=0:P=0 
470  WHILE  NOT  E0F(1):LINE  INPU 

T  il,L*:BL=INSTR<L*, "  "):B 

L*=LEFT* ( L* , BL- 1 ) : LNUM ( P ) = 

VALtBL«>:L*(P)=MID*tL*,LEN 

(STR* ( VAL (BL*) ) ) +1 ) sP=P+l s 

WEND 
480  MAX=P: CLOSE  #1:G0T0  130 
490  IF  COMMAND*="NEW"  THEN  INP 

UT  "Erase  program  -  Are  yo 

u  sure" ;L*: IF  LEFT*(L*,1)= 

"y"  OR  LEFT*(L*,l>="y"  THE 

N  MAX*0i LNUM (0) =65536!: GOT 

0  130: ELSE  130 
500  IF  COMMAND*="BASIC"  THEN  C 

OLOR  7, 0,0! ON  ERROR  GOTO  0 

sCLSsEND 
510  IF  COMMAND*<>"FILES"  THEN 

520 
515  IF  AR6t=""  THEN  ARG$="As " 

ELSE  SEL»l! GOSUB  600 
517  FILES  ARG*: GOTO  130 
520  PR I NT" Syntax  error": GOTO  1 

30 
540  P=0: WHILE  LNUM>LNUM(P)  AND 

P<  MAX :  P=sp+ 1 :  WEND s  RETURN 
560  MAX=MAX-1:FDR  X=P  TO  MAX:L 

NUM ( X ) =LNUM ( X+1 > : L* ( X ) =L* ( 

X+l): NEXT: RETURN 
500  MAX=MAX+1:F0R  X=MAX  TO  P+1 
STEP  -1:LNUM(X)=LNUM(X-1) 

: L* ( X ) =L*  C  X- 1 ) : NEXT : L*  C P )  = 

TEXT*: LNUM (P)=LNUM: RETURN 
600  IF  LEFT*  CARE*,  nOCHR*  (34) 
THEN  520  ELSE  ARG*=^MID*(A 

RQ*,2) 
610  IF  RIGHT* (ARG*, 1>=CHR* (34) 
THEN  ARG*=LEFT*(ARG*,LEN< 

ARG*)'i) 
620  IF  SEL=0  AND  INSTR(AR6*, ", 

")=0  THEN  ARG*=ARG*+"-BAS" 
630  SEL=0: RETURN 
640  CLOSE  #l:CKFLAG=0:PRINT"St 

opped.": RETURN  150 
650  PRINT  "Error    #"; ERR: RESUME 
150 

Program  3:  Commodore 
Proofreader 

By  Philip  Nelson,  Assistant  Editor 

10  VEC=PEEK(772)+256*PEEK(773) 

:LO=43:HI=44 
20  PRINT  "AUTOMATIC  PROOFREADE 

R  FOR  ";;IF  VEC=42364  THEN 

{SPACE} PRINT  "C-64" 
30  IF  VEC^50556  THEN  PRINT  "VI 

C-20" 
40  IF  VEC=35158  THEN  GRAPHIC  C 

LR:PRINT  "PLUS/4  &  16" 
50  IF  VEC=17165  THEN  LO=45 :HI= 

46jGRAPHIC  CLR;PRINT"128" 
60  SA=(PEEK(LO)+256*PEEK{HI) )+ 

6;ADR=SA 
70  FOR  J=0  TO  166: READ  BYT : POK 

E  ADR, BYT : ADR=ADR+1 : CHK=CHK 

+BYT:NEXT 
80  IF  CHKo  20570  THEN  PRINT  "* 
ERROR*  CHECK  TYPING  IN  DATA 
STATEMENTS"; END 
90  FOR  J=l  TO  5 t READ  RF,LF,HF: 

RS=SA+RF;HB=INT(RS/256):LB= 

RS-(256*HB) 
100  CHK=CHK+RF+LF+HFtPOKE  SA+L 

F, LB: POKE  SA+HF, HB :NEXT 
110  IF  CHKO  22054  THEN  PRINT  " 

* ERROR*  RELOAD  PROGRAM  AND 


{SPACE} CHECK  FINAL  LINE": EN 

D 
120  POKE  SA+149,PEEK{ 772) : POKE 

SA+150,PEEK(773) 
130  IF  VEC=17165  THEN  POKE  SA+ 

14,22: POKE  SA+18, 23 :POKESA+ 

29 , 224 : POKESA+1 39 ,224 
140  PRINT  CHR?(147) ;CHR$(17);" 

PROOFREADER  ACTIVE"; SYS  SA 
150  POKE  HI, PEEK ( HI )+l: POKE  (P 

EEKCLO)+256*PEEK(HI))"1,0:N 

EW 
160  DATA  120,169,73,141,4,3,16 

9,3,141,5,3 
170  DATA  88,96,165,20,133,167, 

165,21,133,168,169 
180  DATA  0,141,0,255,162,31,18 

1,199,157,227,3 
190  DATA  202,16,248,169,19,32, 

210,255,169,18,32 
200  DATA  210,255,160,0,132,180 

,132,11^6,136,230,180 
210  DATA  200,185,0,2,240,46,20 

1,34,208,8,72 
220  DATA  165,176,73,255,133,17 

6,104,72,201,32,208 
230  DATA  7,165,176,208,3,104,2 

08,226,104, 166,180 
240  DATA  24,165,167,121,0,2,13 

3,167,165,168,105 
250  DATA  0,133,168,202,208,239 

,240,202,165,167,69 
260  DATA  168,72,41,15,168,185, 

211,3,32,210,255 
270  DATA  104,74,74,74,74,168,1 

85,211,3,32,210 
280  DATA  255,162,31,189,227,3, 

149,199,202,16,248 
290  DATA  169,146,32,210,255,76 

,86,137,65,66,67 
300  DATA  68,69,70,71,72,74,75, 

77,80,81,82,83,88 
310  DATA  13,2,7,167,31,32,151, 

1 16  , 1 17  ,  151 , 1 28 , 1 29 ,  167  , 1 36 

,137 

Program  4:  Apple 
Proofreader 

By  Tim  Victor,  Editorial  Programmer 

10  C  =  0:  FOR  I  =  768  TO  768  + 

68:  READ  A:C  =  C  +  A:  POKE  I 

,A:  NEXT 
20  IF  C  <  >  7258  THEN  PRINT  "ER 

ROR  IN  PROOFREADER  DATA  STAT 

EMENTS":  END 
30  IF  PEEK  (190  *  256)  <  >  76  T 

HEN  POKE  56,0s  POKE  57,3!  CA 

LL  1002:  GOTO  50 
40  PRINT  CHR*  (4); "IN#A*300" 
50  POKE  34,0:  HOME  :  POKE  34,1: 
VTAB  2%    PRINT  "PROOFREADER 

INSTALLED" 
60  NEW 

100  DATA  216,32,27,253,201,141 
110  DATA  208,60,138,72,169,0 
120  DATA  72,189,255,1,201,160 
130  DATA  240,8,104,10,125,255 
140  DATA  1,105,0,72,202,208 
150  DATA  238,104,170,41,15,9 
160  DATA  48,201,58,144,2,233 
170  DATA  5,7,141,1,4,138,74 
180  DATA  74,74,74,41,15,9 
190  DATA  48,201,58,144,2,233 
200  DATA  57,141,0,4,104,170 
210  DATA  169,141,96  ^ 
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mil  ^^  Machine  Language  Entry  Program 
IVILl/V  For  Commodore  64  And  1 28 


Otiis  Cowper,  Technical  Editor    ^ 

"MLK*'  is  a  labor-saving  utility  that  allows 
almost  fail-safe  entry  of  machine  language 
programs.  Included  are  versions  for  the 
Commodore  64  and  128, 


Type  in  and  save  some  copies  of  which- 
ever  version  of  MLX  is  appropriate  for 
your  computer  (you'll  want  to  use  it  to 
enter  future  ML  programs  from  COM- 
PUTE!). Program  1  is  for  the  Commodore 
64,  and  Program  2  is  for  the  128  (128 
MLX  can  also  be  used  to  enter  Commo- 
dore 64  ML  programs  for  use  in  64 
mode).  When  you're  ready  to  enter  an 
ML  program,  load  and  run  MLX.  It  asks 
you  for  a  starting  address  and  an  ending 
address.  These  addresses  appear  in  the 
article  accompanying  the  MLX-format 
program  listing  you're  typing. 

If  you're  unfamiliar  with  machine 
language,  the  addresses  (and  all  other 
values  you  enter  in  MLX)  may  appear 
sixange.  Instead  of  the  usual  decimal 
numbers  you're  accustomed  to,  these 
numbers  are  in  hexadecimal — a  base  16 
numbering  system  commonly  used  by 
ML  programmers.  Hexadecimal — hex 
for  short — includes  the  numerals  0-9 
and  the  letters  A-F.  But  don't  worry — 
even  if  you  know  nothing  about  ML  or 
hex,  you  should  have  no  trouble  using 
MLX. 

After  you  enter  the  starting  and  end- 
ing addresses,  you'll  be  offered  the  op- 
tion of  clearing  the  workspace.  Choose 
this  option  if  you're  starting  to  enter  a 
new  listing.  If  you're  continuing  a  listing 
that's  partially  typed  from  a  previous 
session,  don't  choose  this  option, 

A  functions  menu  will  appear.  The 
first  option  in  the  menu  is  ENTER 
DATA.  If  you're  just  starting  to  type  in  a 
program,  pick  this.  Press  the  E  key,  and 
type  the  first  number  in  the  first  line  of 
the  program  listing.  If  you've  already 
typed  in  part  of  a  program,  type  the  line 
number  where  you  left  off  typing  at  the 
end  of  the  previous  session  (be  sure  to 
load  the  partially  completed  program 
before  you  resume  entry).  In  any  case, 
make  sure  the  address  you  enter  corre- 
sponds to  the  address  of  a  line  in  the 
listing  you  are  entering.  Otherwise,  you'll 
be  unable  to  enter  the  data  correctly.  If 
you  pressed  E  by  mistake,  you  can  retum 
to  the  command  menu  by  pressing  RE- 
TURN alone  when  asked  for  the  address. 
(You  can  get  back  to  the  menu  from  most 
options  by  pressing  RETURN  with  no 
other  input.) 


Entering  A  Listing 

Once  you're  in  Enter  mode,  MLX  prints 
the  address  for  each  program  line  for 
you.  You  then  type  in  all  nine  numbers 
on  that  line,  beginning  with  the  first  two- 
digit  number  after  the  colon  (:).  Each  line 
represents  eight  data  bytes  and  a  check- 
sum. Although  an  MLX-format  listing 
appears  similar  to  the  "hex  dump"  list- 
ings from  a  machine  language  monitor 
program,  the  extra  checksum  number  on 
the  end  allows  MLX  to  check  your  typ- 
ing. (Commodore  128  users  can  enter 
the  data  from  an  MLX  listing  using  the 
built-in  monitor  if  the  rightmost  column 
of  data  is  omitted,  but  we  recommend 
against  it  It's  much  easier  to  let  MLX  do 
the  proofreading  and  error  checking  for 
you.) 


Figure  1 :  64  MLX  Keypad 
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Figure  2:  128  MLX  Keypad 
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When  you  enter  a  line,  MLX  recal- 
culates the  checksimfi  from  the  eight 
bytes  and  the  address  and  compares 
this  value  to  the  number  from  the  ninth 
column.  If  the  values  match,  you'll  hear 
a  bell  tone,  the  data  will  be  added  to  the 
workspace  area,  and  the  prompt  for  the 
next  line  of  data  will  appear.  But  if  MLX 
detects  a  typing  error,  you'll  hear  a  low 
buzz  and  see  an  error  message.  The  line 
will  then  be  redisplayed  for  editing. 

Invalid  Characters  Banned 

Only  a  few  keys  are  active  while  you're 
entering  data,  so  you  may  have  to  un- 
learn some  habits.  You  do  not  type 
spaces  between  the  columns;  MLX 
automatically  inserts  these  for  you.  You 
do  not  press  RETURN  after  typing  the 
last  number  in  a  line;  MLX  automatical- 
ly enters  and  checks  the  line  after  you 
type  the  last  digit. 

Only  the  numerals  0-9  and  the 
letters  A-F  can  be  typed  in.  If  you  press 
any  other  key  (with  some  exceptions 
noted  below),  you'll  hear  a  warning 
buzz.  To  simplify  typing,  128  MLX  re- 
defines the  function  keys  and  +  and  — 
keys  on  the  numeric  keypad  so  that  you 
can  enter  data  one-handed.  In  either 
case,  the  keypad  is  active  only  while 
entering  data.  Addresses  must  be  en- 
tered with  the  normal  letter  and  num- 
ber keys.  The  figures  below  show  the 
keypad  configurations  for  each  version. 

MLX  checks  for  transposed  charac- 
ters. If  you're  supposed  to  type  in  AO 
and  instead  enter  OA,  MLX  will  catch 
your  mistake.  There  is  one  error  that 
can  slip  past  MLX:  Because  of  the 
checksum  formula  used,  MLX  won't 
notice  if  you  accidentally  type  FF  in 
place  of  00,  and  vice  versa.  And  there's 
a  very  slim  chance  that  you  could  gar- 
ble a  line  and  still  end  up  with  a  combi- 
nation of  characters  that  adds  up  to  the 
proper  checksum.  However,  these  mis- 
takes should  not  occur  if  you  take  rea- 
sonable care  while  entering  data. 

Editing  Features 

To  correct  typing  mistakes  before  fin- 
ishing a  line,  use  the  INST/DEL  key  to 
delete  the  character  to  the  left  of  the 
cursor.  (The  cursor-left  key  also  de- 
letes.) If  you  mess  up  a  line  really  badly, 
press  CLR/HOME  to  start  the  line  over. 
The  RETURN  key  is  also  acHve,  but 
only  before  any  data  is  typed  on  a  line. 
Pressing  RETURN  at  this  point  returns 
you  to  the  command  menu.  After  you 
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type  a  character  of  data,  MLX  disables 
RETURN  until  the  cursor  returns  to  the 
start  of  a  line.  Remember,  you  can  press 
CLR/HOME  to  quickly  get  to  a  line 
number  prompt. 

More  editing  features  are  available 
when  correcting  lines  in  which  MLX 
has  detected  an  error.  To  make  correc- 
tions in  a  line  that  MLX  has  redisplayed 
for  editing,  compare  the  line  on  the 
screen  with  the  one  printed  in  the  list- 
ing, then  move  the  cursor  to  the  mis- 
take and  type  the  correct  key.  The 
cursor  left  and  right  keys  provide  the 
normal  cursor  controls.  (The  INST/ 
DEL  key  now  works  as  an  alternative 
cursor-left  key.)  You  cannot  move  left 
beyond  the  first  character  in  the  line.  If 
you  try  to  move  beyond  the  rightmost 
character,  you'll  reenter  the  line.  Dur- 
ing editing,  RETURN  is  active;  pressing 
it  tells  MLX  to  recheck  the  line.  You  can 
press  the  CLR/HOME  key  to  clear  the 
entire  line  if  you  want  to  start  from 
scratch,  or  if  you  want  to  get  to  a  line 
number  prompt  to  use  RETURN  to  get 
back  to  the  menu. 

Display  Data 

The  second  menu  choice,  DISPLAY 
DATA,  examines  memory  and  shows 
the  contents  in  the  same  format  as  the 
program  listing  (including  the  check- 
sum). When  you  press  D,  MLX  asks  you 
for  a  starting  address.  Be  sure  that  the 
starting  address  you  give  corresponds 
to  a  line  number  in  the  listing.  Other- 
wise, the  checksum  display  will  be 
meaningless.  MLX  displays  program 
lines  until  it  reaches  the  end  of  the 
program,  at  which  point  the  menu  is 
redisplayed.  You  can  pause  the  display 
by  pressing  the  space  bar.  (MLX  finish- 
es printing  the  current  line  before  halt- 
ing.) Press  space  again  to  restart  the 
display  To  break  out  of  the  display  and 
get  back  to  the  menu  before  the  ending 
address  is  reached,  press  RETURN. 

Other  Menu  Options 

Two  more  menu  selections  let  you  save 
programs  and  load  them  back  into  the 
computer. ^  These  are  SAVE  FILE  and 
LOAD  FILE;  their  operation  is  quite 
straightforward.  When  you  press  S  or  L, 
MLX  asks  you  for  the  filename.  You'll 
then  be  asked  to  press  either  D  or  T  to 
select  disk  or  tape. 

You'll  notice  the  disk  drive  starting 
and  stopping  several  times  during  a 
load  or  save  (save  only  for  the  128 
version).  Don't  panic;  this  is  normal 
behavior.  MLX  opens  and  reads  from  or 
writes  to  the  file  instead  of  using  the 
usual  LOAD  and  SAVE  commands 
(128  MLX  makes  use  of  BLOAD).  Disk 
users  should  also  note  that  the  drive 
prefix  0:  is  automatically  added  to  the 
filename  (line  750  in  64  MLX),  so  this 
should  not  be  included  when  entering 


the  name.  This  also  precludes  the  use  of 
@  for  Save-wlth- Replace,  so  remember 
to  give  each  version  you  save  a  different 
name.  The  128  version  makes  up  for 
this  by  giving  you  the  option  of  scratch- 
ing the  existing  file  if  you  want  to  reuse 
a  filename. 

Remember  that  MLX  saves  the  en- 
tire workspace  area  from  the  starting 
address  to  the  ending  address,  so  the 
save  or  load  may  take  longer  than  you 
might  expect  if  you've  entered  only  a 
small  amount  of  data  from  a  long  list- 
ing. When  saving  a  partially  completed 
listing,  make  sure  to  note  the  address 
where  you  stopped  typing  so  you'll 
know  where  to  resume  entry  when  you 
reload. 

MLX  reports  the  standard  disk  or 
tape  error  messages  if  any  problems  are 
detected  during  the  save  or  load.  (Tape 
users  should  bear  in  mind  that  Commo- 
dore computers  are  never  able  to  detect 
errors  during  a  save  to  tape.)  MLX  also 
has  three  special  load  error  messages: 
INCORRECT  STARTING  ADDRESS, 
which  means  the  file  you're  trying  to 
load  does  not  have  the  starting  address 
you  specified  when  you  ran  MLX; 
LOAD  ENDED  AT  address,  which 
means  the  file  you're  trying  to  load 
ends  before  the  ending  address  you 
specified  when  you  started  MLX;  and 
TRUNCATED  AT  ENDING  AD- 
DRESS, which  means  the  file  you're 
trying  to  load  extends  beyond  the  end- 
ing address  you  specified  when  you 
started  MLX.  If  you  see  one  of  these 
messages  and  feel  certain  that  you've 
loaded  the  right  file,  exit  and  rerun 
MLX,  being  careful  to  enter  tKe  correct 
starting  and  ending  addresses. 

The  128  version  also  has  a  CATA- 
LOG DISK  option  so  you  can  view  the 
contents  of  the  disk  directory  before 
saving  or  loading. 

The  QUIT  menu  option  has  the 
obvious  effect — it  stops  MLX  and  en- 
ters BASIC.  The  RUN/STOP  key  is  dis- 
abled, so  the  Q  option  lets  you  exit  the 
program  without  turning  off  the  com- 
puter. (Of  course,  RUN/STOP-RES- 
TORE also  gets  you  out.)  You'll  be 
asked  for  verification;  press  Y  to  exit  to 
BASIC,  or  any  other  key  to  return  to  the 
menu.  After  quitting,  you  can  type 
RUN  again  and  reenter  MLX  without 
losing  your  data,  as  long  as  you  don't 
use  the  clear  workspace  option* 

The  Finished  Product 

When  you've  finished  typing  all  the 
data  for  an  ML  program  and  saved  your 
work,  you're  ready  to  see  the  results. 
The  instructions  for  loading  and  using 
the  finished  product  vary  from  program 
to  program.  Some  ML  programs  are 
designed  to  be  loaded  and  run  like 
BASIC  programs,  so  all  you  need  to 
type  is  LOAD   "filename" fi  for  disk 


(DLOAD  ^'filename"  on  the  128)  or 
LOAD  "filename*'  for  tape,  and  then 
RUN.  Such  programs  will  usually  have 
a  starting  address  of  0801  for  the  64  or 
ICOl  for  the  128.  Other  programs  must 
be  reloaded  to  specific  addresses  with  a 
command  such  as  LOAD  **file- 
name",SA  for  disk  (BLOAD  "filename" 
on  the  128)  or  LOAD  "filename", 1,1  for 
tape,  then  started  with  a  SYS  to  a  partic- 
ular memory  address.  On  the  Commo- 
dore 64,  the  most  common  starting 
address  for  such  programs  is  49152, 
which  corresponds  to  MLX  address 
CO 00.  In  either  case,  you  should  always 
refer  to  the  article  which  accompanies 
the  ML  listing  for  information  on  load- 
ing and  running  the  program. 

An  Ounce  Of  Prevention 

By  the  time  you  fmish  typing  in  the  data 
for  a  long  ML  program,  you  may  have 
several  hours  invested  in  the  project. 
Don't  take  chances — use  our  "Auto- 
matic Proofreader"  to  type  the  new 
MLX,  and  then  test  your  copy  thorough- 
ly before  first  using  it  to  enter  any  sig- 
nificant amount  of  data.  Make  sure  all 
the  menu  options  work  as  they  should. 
Enter  fragments  of  the  program  starting 
at  several  different  addresses,  then  use 
the  Display  option  to  verify  that  the 
data  has  been  entered  conectly.  And  be 
sure  to  test  the  Save  and  Load  options 
several  times  to  insure  that  you  can 
recall  your  work  from  disk  or  tape. 
Don't  let  a  simple  typing  enor  in  the 
new  MLX  cost  you  several  nights  of 
hard  work. 


Program  1:  MLX  For 
Commodore  64 

SS  10  REM  VERSION  1,1:  LINES  8 
30,950  MODIFIED,  LINES  4 
85-487  ADDED 
POKE  56,50:CLR!DIM  IN$, 
I,J,A,B,A$,B$,A{7),N$ 
G4=48;C6=16iC7=7;Z2=2:Z 
4=254 t25«255jZ6=256s 27= 
127 

FA=PEEK  C  45 ) +Z6*PEEK { 46 ) 
: BS=PEEK ( 55 ) +26*PEEK ( 56 
) :H$="0123456789ABCDEP" 
R$=CHR$ ( 13 ) tL$=" {LEFT } " 
:S$="  ";D$=CHR$(20)!2$= 
CHH$(0):T$="(13  RIGHT}" 
SD=54272:F0R  I=SD  TO  SD 
+  23  SPOKE  I,0:NEXT:POKE 
{SPACE)SD+24,I5:POKE  78 
8,52 

PRINT" {CLRJ "CHR$ ( 142 ) CH 
R$(8):P0KE  53280, 15:P0K 
E  53281,15 
PRINT  T$"  tRED} {RVS} 
{2  SPACES) g8  @I 
(2  SPACES} "SPC( 28)" 
[2  SPACES} {off} {BLU}  ML 

X  II  {redHrvs} 

(2    SPACES }"SPC( 28)" 
{12    spaces} {BLU}" 
FR    170    PRINT" (3    DOWN} 

[ 3    SPACES } COMPUTE  1  ' S    MA 


EK 

100 

DM 

110 

CJ 

120 

SB 

130 

CQ 

140 

FC 

150 

EJ 

160 
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CHINE  LANGUAGE  EDITOR 
{3  DOWN}" 

JB  180  PRINT" {BLK} STARTING  ADD 
RESSB4i " ; ! GOSUB300 : SA=A 
D:GOSUB1040:IF  F  THEMIS 
0 

OF  190  PRINT"{BLK} {2  SPACES)EN 
DING  ADDRESSM3"?  :GOSUB 
300 1 EA=AD! GOSy B1030 : IF 
{ SPACE }F  THEN190 

KR  200  INPUT" {3  DOWN H BLK }CLEA 
R  WORKSPACE  [y/N]B4i";A 
$:IF  LEFT$(A$,1)<>"Y"TH 
EN220 

PG  210  PRINT"{2  DOWN} I BLU} WORK 
ING .,,":: FORI=BS  TO  BS+ 
EA-SA+7:P0KE  I,0:NEXTsP 
RXNT"DONE" 

DR  220  PRINTTAB(10)"{2  DOWN} 
{ BLK } { RVS }  MLX  COMMAND 
{SPACE} MENU  (D0WN}i4B": 
PRINT  T$"(RVS}E{0FF}NTE 
R  DATA" 

BD  230  PRINT  T$" {RVS}d{OFF}ISP 

lay  data":print  t$ " 
(hvs}l1off}oad  file" 

JS    240    PRINT    T$"{RVS}S{0FF}AVE 
FILE":PRINT    T$"{RVS}Q 

{0FF)UIT{2  down} {BLK}" 
JH  250  GET  A$sIF  A$=N?  THEN250 
HK  260  A=0;FOR  1=1  TO  5:IF  A$= 

MID$("EDLSQ", 1,1) THEN  A 

=I;I=5 
FD  270  NEXT: ON  A  GOTO420,610,6 

90, 700, 280 !GOSUB1060 :GO 

TO250 
EJ  280  PRINT" {RVS}  QUIT  ":INPU 

T " {down )|4i ARE  YOU  SURE 
Cy/n3"?a$:If  LEFT$(A$, 

1)<>"Y"THEN220 
EM  290  POKE  SD+24,0:END 
JX  300  IN$=N$:AD=0:INPUTIN$:IF 

LEN ( IN5 ) <>  4THENRETURN 
KF  310  B$=IN$:GOSUB320:AD=AtB$ 

=MID$ ( IN$ , 3 ) :GGSUB320 :A 

D=AD*256+A:RETURN 
PP  320  A=0!FOR  J=l  TO  2sA$=MID 

$(B$,J,1) :B=ASC{A$)-C4+ 

(A$>"(?")*C7:A=A*C6+B 
JA  330  IF  B<0  OR  B>15  THEN  AD= 

0iA=-l:J=2 
GX  340  NEXT: RETURN 
CH  350  B=INT(A/C6} : PRINT  MID$ ( 

H$,B+1,1) ; :B=A-B*C6;PRI 

NT  MID$(H$,B+1,1); :RETU 

RN 
RR   360    A=INT(AD/Z6) :GOSUB350tA 

=AD_A*Z6 :GOSUB350 :PRINT 

BE    370    CK=iNT(AD/Z6} :CK=AD-Z4* 

CK+Z5*CCK>Z7) :GOTO390 
PX    380    CK^CK*Z2+Z5*(CK>Z7)+A 
JC    390    CK=CK+Z5*(CK>Z5) s RETURN 
QS    400    PRINT "{DOWN J STARTING   AT 

M3"?  !GOSUB300:IF    IN$  <> 

m    THEN    GOSUB1030:IF    F 

[ SPACE }THEN400 
EX    410    RETURN 
HD    420    PRINT "{ RVS}    ENTER    DATA 

(SPACE )":GOSUB400! IF    IN 

$=N$    THEN220 
JK    430    OPEN3,3:PRINT 
SK    440    POKE198,0:GOSUB360;IF    F 
THEN    PRINT    IN$:PRINT" 

{UP} {5  RIGHTl"; 
GC  450  FOR  1=0  TO  24  STEP  3  sB? 

=S$:FOR  J-1  TO  2!lF  F  T 

HEN    B$=MID$(IN$,I+J,1) 
HA    460    PRINT"{RVsi"B$L$; :IF    I< 

24THEN    PRINT" {OFF}"? 
HD    470    GET    A$:IF   A$=N$    THEN470 


FK  480  IFtA$>"/"ANDA$<": ")OR{A 

$  >  "  (§"  ANDA$  <  "G"  )  THEN540 
GS  485  A=-(A$="M")-2*(A$=",")- 

3*(A$=",")-4*(A?="/")-5 

*(A$=^"J")-6*CA$="K") 
FX  486  A=A-7*(A$="L")-8*(A$=": 

")-9*(A$="U")-10*(A$="I 

")^11*(A$="0")-12*CA$=" 

P") 
CM  487  A=A-13*CA$=S?)!lF  A  THE 

N  A$=MID$( "ABCD123E456F 

0",A, 1) :GOTO    540 
MP    490    IF    A$=R$    AND{(I=0)AND(J 

=1)0R    F)THEN    PRINT    B$ ; ! 

J=2:NEXTsI»24:GOTO550 
KC    500    IF    A?"" {HOME)"    THEN    PRI 

NT    B$;J=2:NEXT:I=24tNEX 

T;F=0iGOTO440 
MX  510  IF (A$=" {RIGHT} ")ANDF  TH 

ENPRINT  B$L$; :GOTO540 
GK  520  IF  A$<>L?  AND  A$<>D$  OR 

(( 1=0 ) AND( J=l )) THEN  GOS 

UB1060:GOTO470 
HG    530   A$=^L$+S$+L5: PRINT    B$L$  ; 

:J=2-J;IF   J    THEN    PRINT 

{ SPACE} L$; : 1=1-3 
QS    540    PRINT    A5;iNEXT    J:PRINT 

{ SPACE }S$? 
PM  550  NEXT  I : PRINT: PRINT" {UP } 

{5  RIGHT}"; ;INPUT#3,IN$ 

:IP  IN$=N$  THEN  CL0SE3 : 

GOTO220 
QC  560  FOR  1=1  TO  25  STEP3£B$= 

MID${XN§,I) :GOSUB320:IF 
I<25  THEN  GOSUB380:ACI 

/3)=A 
PK  570  NEXT: IF  A<>CK  THEN  GOSU 

B1060: PRINT "{BLK} {RVS} 

{ SPACE }ERROR:  REENTER  L 

INE  B4i":F=l:GOTO440 
HJ  580  GOSUB1080:B=BS+AD-SA:FO 

R  1=0  TO  7:P0KE  B+I,A(I 

) sNEXT 
QQ    590    AD=AD+8:IF   AD>EA   THEN   C 

L0SE3 : PRINT " { DOWN } { BLU } 

**    END    OF    ENTRY    **{BLK} 

{2    DOWN}"!GOTO700 
GQ    600    F=0:GOTO440 
QA    610    PRINT"{CLR} {DOWN} {RVS} 

{SPACE} DISPLAY  DATA  ":G 

OSUB400tIF    IN?=N$    THEN2 

20 
RJ    620    PRI NT "{DOWN} {BLU} PRESS; 
{RVS} SPACE {OFF}    TO    PAU 

SE,     {RVS} RETURN {off}    TO 
BREAKg4i{D0WN}" 
KS    630    GOSUB360;B-BS+AD-SA:FOR 

I=BTO    B+7:A=PEEK(I) jGOS 

UB350:GOSUB 380  SPRINT    S$ 

CC   640   HEXTtPRINT"{RVS)"r ;A=CK 

;GOSUB350:PRINT 
KH    650    F=1:AD=AD+S:IF   AD>EA   TH 

ENPRINT" {DOWN} {BLU}**    E 

ND   OF   DATA   **"sGOTO220 
KC    660    GET    A$:IF    A$=R$    THEN    GO 

SUB1080:GOTO220 
EQ    670    IF    A$=S$    THEN    F=F+1:G0S 

UB1080 
AD   680    ONFGOTO6  30,660,630 
CM    690    PRINT" {down} {RVS}    LOAD 

(SPACE} DATA    "i0P=l;G0T0 

710 
PC  700  PRINT" {down} (RVS)  SAVE 

{SPACE} FILE  "!OP=0 
RX  710  IN$=N$: INPUT "(down} FILE 

NAMEg4r'rIN$rIF    IN$=N$ 

{ SPACE }THEN2 20 
PR   720    F=0: PRINT "{DOWN} {BLK} 

{RVS)T{OPF}APE    OR    {RVS} 

D{0FP}ISK!  N1"; 


FP  730  GET  A$:IF  A$="T"THEN  PR 

INT "T ( DOWN } " i  GOTO8S0 
HQ  740  IF  A$<>"D"THEN730 
HH  750  PRINT "D{ DOWN} ":0PEN15, 8 

,15,  "10:  ":B=EA-SA:IN$=^" 

0;"4-IN$:IF  OP  THEN810 
SQ  760  OPEN  l,8,8,IN?+",P,W"sG 

OSUB860:I'F  A  THEN220 
FJ  770  AH=INT(SA/256)  :AL=SA--CA 

H*256):PRINT#1,CHR$CAL) 

rCHR$(AH); 
PE    780    FOR    I*=0    TO    B:PRINT#1,CH 

R$(PEEK(BS+I))? :IF    ST   T 

HENS00 
FC  790  NEXTjCLOSEI :CLOSEl5:GOT 

0940 
GS  800  GOSU Bl 060: PRI NT "(down) 

{BLK} ERROR  DURING  SAVEt 

§41 " IGOSUB860 :GOTO220 
MA  810  OPEN  l,8,8,IN$+",P,R"iG 

OSUB860rIF  A  THEN220 
GE  820  GET#1,A$,B?:AD=ASC(A$+Z 

$)+256*ASC{B$+Z$) :IF  AD 

<>SA  THEN  F-1:GOTO850 
RX  830  FOR  1=0  TO  B:GET#l,A$sP 

OKE  BS+I,ASC(A$+Z$)  !IP( 

I<>B)AND  ST  THEN  F=2:AD 

=I:I=B 
FA  840  NEXT: IF  ST<>64  THEN  F=3 
FQ  850  CLOSEl:CL0SE15:0N  ABS ( F 

>0)+l  GOTO960,970 
SA  860  INPUT#15,A,A$:IF  A  THEN 
CLOSEl 1CL0SE15 :GOSUB10 

60:PRINT"(RVS}ERROR:     "A 

$ 
GQ    870    RETURN 
EJ    880    POKE183,PEEK(FA+2) :POKE 

187,PEEK(PA+3) :P0KE188, 

PEEK  C  FA+4 ) ; I FOP=0THEN92 

0 
HJ  890  SYS  63466:IP(PEEKt7B3)A 

NDDTHEN  GOSUB1060:PRIN 

T" (DOWN }{ RVS}  PILE  NOT 

[ SPACE } FOUND  " : GOTO690 
CS  900  AD=PEEK(829)+2  56*PEEK(8 

30):IF  ADOSA  THEN  F=ls 

GOTO970 
SC  910  A=PEEK(831)+256*PEEKt83 

2)-l:F=F-2*(A<EA)-3*(A> 

EA) :AD=A-AD:GOTO930 
KM  920  A=SA:B=EA+1:GOSUB1010:P 

OKE780,3;SYS    63338 
JF    930    A=BS:B=BS+(EA-SA)+1;G0S 

UB 1010: ON    OP    GOTO950;SY 

S    63591 
AE    940    GOSUB1080jPRINT"(BLUl** 
SAVE    COMPLETED    **":G0T 

0220 
XP    950    POKE147,0:SYS    63562 :IF 

{ SPACE} ST >0    THEN970 
PR  960    GOSUB1080: PRINT "{BLU}** 
LOAD    COMPLETED    **"sG0T 

0220 
DP    970    GOSU Bl 060  SPRINT "{BLK} 

{RVS)ERR0R    during    LOADt 

{down }g 43": ON    F   GOSUB98 

0,990, 1000 JGOTO220 
PP    980    PRINT "INCORRECT    STARTIN 

G   ADDRESS    ( " ; iGOSUB360  t 

PRINT") ": RETURN 
GR    990    PRINT "LOAD    ENDED   AT    ";s 

AD=SA+AD:GOSUB360:PRINT 
D$ : RETURN 
FD    1000    PRINT "TRUNCATED    AT    END 

ING  ADDRESS": RETURN 
RX  1010  AH=INT ( A/256 ):AL=A-( AH 
*256)iPOKE193,AL:POKEl 
94,  AH 
FF  1020  AH^INTCb/256) :AL=B-{AH 
*256) :POKE174,AL:POKEl 
75, AH: RETURN 
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FX    1030    IF   AD<SA    OR    AI>>^EA    THEN 

1050 
HA    1040    IF(AD>5H    AND   AD<40960 

)OR(AD>49151    AND   AD<53 

248)  THEN   GOSUB1080  iF=s0 

: RETURN 
HC    1050    GOSUB1060: PRINT "(RVS} 

[SPACE} INVALID    ADDRESS 
I  DOWN  J { BLK 1 " : F=l : RETU 

RN 
AR    1060    POKE    SD+5,31:POKE    SD+6 

,208:POKE    SD,240:POKE 

{SPACE )SD+ 1,4: POKE    SD+ 

4,33 
DX    1070    FOR   5=1    TO    100:NEXT:GO 

TO1090 
PF  1080  POKE  SD+5,8;P0KE  SD+6, 

240: POKE  SD, 0s POKE  SD+ 

1,90:POKE  SD+4,17 
AC  1090  FOR  S=l  TO  100:NEXT;PO 

KE  SD+4,0;POKE  SD,0sPO 

KE  SD+1,0: RETURN 

Program  2:  MIX  For 
Commodore  128 

AE  100  TRAP  960: POKE  4627,128: 
DIM  NL$,A(7) 

XP  110  Z2=2:24=254:Z5=255;Z6=2 
56:Z7=127:BS=256*PEEKC4 
627) :EA=65280 

FB  120  BE?=CHR${7) :RT5=CHR${13 
) : DL$=CHR$ ( 20 ) : SP$=CHR$ 
{32):LF$=CHR$(157) 

KE  130  DEF  FNHB(A)=INT(A/256): 
DEF  FNLB ( A } =A-FNHB ( A ) *  2 
56: DEF  FNAD( A)=PEEK(A)+ 
256*PEEK{A4-1) 

JB  140  KEY  1/'A":KEY  3,"B"*KEY 
5,  "C'sKEY  7, "D";VOL  15 
:IF  RGRC0)=5  then  FAST 

FJ  150  PRINT" {CLR)"CHR$( 142 ) ?C 
HR$(8)!C0L0R  0,15: COLOR 
4,15;COLOR  6,15 

GQ  160  PRINT  TAB(12)"{RED) 
{RVS}{2  SPACES) B9  @I 
[2    SPACES] "RT? 'TAB (12)" 
{RVS}{2  spaces} {OFF J 
{BLUJ  128  MLX  {RED} 
{RVSl{2  SPACES )"RT$; TAB 
C12)"{RVS}{13  SPACES] 
{ BLU ] " 

FE  170  PRINT"{2  DOWN] 

{3  SPACES JCOMPUTEl 'S  MA 
CHXNE  LANGUAGE  EDITOR 
{2  DOWN]" 

DK  180  PRINT" { BLK) STARTING  ADD 
RESSi4i"; :GOSUB  260: IF 
{SPACE) AD  THEN  SA=ADtEL 
SE  180 

FH  190  PRINT" (BLK) (2  SPACES} EN 
DING  ADDRESSNi";  :GOSUB 
260: IF  AD  THEN  EA=AD:E 
LSE  190 

MF  200  PRINT" [DOWN] { BLK} CLEAR 
{SPACE} WORKSPACE  [Y/N]? 
g4i":GETKEY  A$:IF  A$<>" 
Y"  THEN  220 

QH  210  PRINT" {DOWN] (BLU) WORKIN 
G...";sBANK  0:FOR  A=BS 
{ SPACE }T0  BS+{EA-SA)+7: 
POKE  A, 0: NEXT  A:PRINT"D 
ONE" 

DC  220  PRINT  TAB(10)"{DOWN} 

(BLK]{RVS}  MLX  COMMAND 
(SPACE] MENU  HHDOWN}": 
PRINT  TAB{13)"{RVS)E 
(OFFJNTER  data "RT$; tab ( 
13)"{RVS)D{0FF}ISPLAY  D 
ATA"RT$;TABC13)"{RVS}L 
{0FF}0AD  FILE" 


HB  230  PRINT  TAB ( 13 ) " { RVS}S 

(OFF] AVE  FILE " RT$? TAB (1 

3)"{RVS)C{0FF]ATAL0G  DI 

SK"RT$ ;TAB ( 13 ) " { RVS ]Q 

{ OFF ] UIT { DOWN } { BLK } " 
AP  240  GETKEY  A$ :A=INSTR( "EDLS 

CQ",A$):ON  A  GOTO  340,5 

50 , 640 , 650 , 930 , 940 : GOSU 

B  950:GOTO  240 
SX  250  PRINT "STARTING  AT";:GOS 

UB  260:IF(AD<>0)OR(A$^N 

L$)THEN  RETURN: ELSE  250 
EG  260  A$=NL$: INPUT  A$!lF  LEN( 

A?) =4  THEN  AD=DEC(A$) 
PP  270  IF  AD=0  THEN  BEGIN: IF  A 

$<>NL$  THEN  300: ELSE  RE 

TURN: BEND 
MA  280  IF  AD<SA  OR  AD>EA  THEN 

{SPACE} 300 
PM  290  IF  AD>511  AND  AD<65280 

{SPACE]THEN  PRINT  BE$;: 

RETURN 
SQ  300  GOSUB  950 : PRINT" {RVS }  I 

NVALID  ADDRESS  {DOWN} 

{BLK j " :AD=0 : RETURN 
RD  310  CK=FNHB(AD):CK=AD-Z4*CK 

+Z5*(CK>Z7) :GOTO  330 
DD  320  CK=CK*Z24-Z5*CCK>Z7)+A 
AH  330  CK=CK+Z5*{CK>Z5) : RETURN 
QD  340  PRINT  BE$;"{RVS}  ENTER 

[SPACE  J  DATA  "t GOSUB  250 

:IF  A$=NL$  THEN  220 
JA  350  BANK  0 :PRINT :F=0:OPEN  3 

,3 
BR  360  GOSUB  310: PRINT  HEX? (AD 

)+":"r :IF  F  THEN  PRINT 

{ SPACE }L$: PRINT "{UP} 

15  RIGHT]"; 
QA  370  FOR  1=0  TO  24  STEP  3:B$ 

=SP$;FOR  J=l  TO  2:IF  F 

{SPACE} THEN  B?=MXD$(L$, 

I+J,l) 
PS  380  PRINT " (RVS } "B$+LF$ ?: IF 

{ SPACE )I< 24  THEN  PRINT" 

{OFF}"; 
RC  390  GETKEY  A$:IF  (A$>"/"  AN 

D  A$<":")  OR(A$>"@"  AND 
A$<"G")  THEN  470 
AC  400  IF  A$="+"  THEN  A?="E":G 

OTO  470 
QB  410  IE  A$="-"  THEN  A$="F":G 

OTO  470 
FB  420  IF  A$=RT$  AND  ((1=0)  AN 

D  (J=l)  OR  F)  THEN  PRIN 

T  B$; :J=2:NEXT:I=24:G0T 

O  480 
RD  430  IF  A?="{H0ME)"  THEN  PRI 

NT  B$sJ=2sNEXT:I=24:NEX 

T:P=0jGOTO  360 
XB  440  IF  (A$=" (right)")  AND  F 
THEN  PRINT  B$+LF$;:GOT 

O  470 
JP  450  IF  A?<>LF$  AND  A$<>DL$ 

[SPACE]0R  ((1=0)  AND  (J 

=1))  THEN  GOSUB  950:GOT 

O  390 
PS  460  A$=LF$+SP$+LF$! PRINT  B$ 

+LF$?:J=2-J:IF  J  THEN  P 

RINT  LF$| : 1=1-3 
GB  470  PRINT  A? r: NEXT  J: PRINT 

( SPACE ]SP$; 
HA  480  NEXT  I t PRINT : PRINT "{ UP) 

(5  RIGHT) ";:L$=" 

(27  SPACES]" 
DP  490  FOR  1=1  TO  25  STEP  3:GE 

T#3,A5,B$:IF  A$=SP$  THE 

N  1=25: NEXT: CLOSE  3: GOT 

0  220 
BA  500  A$=A$+B$:A=DEC(A$):MID$ 

(L?,I,2)=A$:IF  I<25  THE 

N  GOSUB  320:A(I/3)=A:GE 

T#3,A$ 


AR  510  NEXT  I: IF  A<>CK  THEN  GO 

SUB  950: PRINT: PRINT" 

(RVS)  ERROR:  REENTER  LI 

NE  ":F=1:G0T0  360 
DX  520  PRINT  BE$:B=BS-FAD-SA:F0 

R  1=0  TO  7: POKE  B+I,A(l 

) :NEXT  I 
XB  530  F=0:AD=AD+e:IF  AD<-EA  T 

HEN  360 
CA  540  CLOSE  3 : PRINT" (DOWN) 

{BLU)**  END  OF  ENTRY  ** 

{BLK} (2  DOWN]":GOTO  650 
HC    550  PRINT  BE? ; " (CLR) {DOWN} 

(RVS}  DISPLAY  DATA  ":G0 

SUB  250: IF  A?^NL?  THEN 

(SPACE) 220 
JF  560  BANK  0: PRINT" {DOWN) 

{ BLU ] PRESS ;  { RVS ) SPACE 

(OFF)  TO  PAUSE,  {RVS)RE 

TURN {off)  to  BREAKg43 

{DOWN}" 
XA  570  PRINT  HEX$(AD)+": "; :GOS 

UB  310:B=BS+AD-SA 
DJ  580  FOR  I=B  TO  B+7:AsPEEK(l 

) SPRINT  RIGHT? (HEX? (A), 

2);SP?r jGOSUB  320: NEXT 

(SPACE  J I 
XB    590    PRINT" {RVS]"; RIGHT? (HEX 

$(CK),2) 
GR    600    P=1:AD=AD+8:IF   AD>EA   TH 

EN  PRINT "{BLU]**  END  OF 
DATA  **":G0T0  220 
EB  610  GET  A?: IF  A$-RT?  THEN  P 

RINT  BE?: GOTO  220 
QK  620  IF  A?=SP?  THEN  F=F+1:PR 

INT  BE?? 
XS  630  ON  F  GOTO  570,610,570 
RF  640  PRINT  BE? " (DOWN) { RVS }  L 

OAD  DATA  ":OP=l:GOTO  66 

0 
HP  650  PRINT  BE?" {DOWN} (RVS)  S 

AVE  PILE  ":OP=0 
DM  660  P=0!F?=NL?: INPUT "PILENA 

MEg43"rF?:IP  F?==NL?  THE 

N  220 
RF  670  PRINT" {DOWN} [BLK] {RVS }T 

(OFF} APE  OR  {RVS)D{OFF) 

ISK;  141"; 
SQ  680  GETKEY  A?: IF  A?="T"  THE 

N  850: ELSE  IF  A?<>"D"  T 

HEN  680 

SP  690  PRINT"DISKiDOWN}":IF  OP 
THEN  760 

EH  700  D0PEN#1,(F?+",P"),W:IF 
{ SPACE }DS  then  A?-D?!G0 
TO  740 

JH  710  BANK  0!POKE  BS-2,FNLB{S 
A): POKE  BS-1,FNHB(SA) :P 
RINT "SAVING  ";P$: PRINT 

MC  720'  FOR  A=BS-2  TO  BS+EA-SA: 
PRINT#1,CHR?(PEEK(A) ); : 
IF  ST  THEN  A?="DISK  WRI 
TE  ERROR"; GOTO  750 

GC  730  NEXT  A: CLOSE  1: PRINT" 
(BLU)**  SAVE  COMPLETED 
(SPACE) WITHOUT  ERRORS  * 
*":GOTO  220 

RA  740  IF  DS=63  THEN  BEGIN :CLO 
SE  1: INPUT "(BLK} REPLACE 
EXISTING  FILE  [Y/N]g4i 
";A$:IF  A?="Y"  THEN  SCR 
ATCH(F?) : PRINT: GOTO  700 
iELSE  PRINT"!BLK}"jGOTO 
660: BEND 

GA  750  CLOSE  1: GOSUB  950: PRINT 
"(BLK} (RVS)  ERROR  DURIN 
G  SAVE:  141": PRINT  A?:G 
OTO  220 

FD  760  DOPEN#l, (FS+",P") :IF  DS 
THEN  A?=DS?:P=4: CLOSE 
{SPACE}! :GOTO  790 
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DP 

820 

EB 

830 

FP 

840 

KS 

850 

PX  770  GET#1,A$,B$: CLOSE  1:AD= 
ASC(A$)+256*ASC(B$) :IF 
{SPACE} ADO SA  THEN  F=^l : 
GOTO  790 

KB  780  PRINT "LOADING  ";P$:PRIN 
T:BLOADCF$),B0,P(BS) :AD 
«SA+FNAD C 1 74 ) -BS-1 ! F=-2 
*(AD<EA)-3*(AD>EA} 

RQ  790  IF  F  THEN  800: ELSE  PRXN 
T"{BLU}**  LOAD  COMPLETE 
0  WITHOUT  ERRORS  **":G0 
TO  2  20 

ER  800  GOSUB  950  :  PRINT*' { ELK  j 

{RVS}  ERROR  DURING  LOAD 
:  i4§":0N  F  GOSUB  810,8 
20,830,840!GOTO220 

QJ  810  PRINT "INCORRECT  STARTIN 
G  ADDRESS  ( ";HEX$ ( AD) ; " 
) " ; RETURN 

PRINT "LOAD  ENDED  AT  "?H 
EX$CAD) : RETURN 
PRINT "TRUNCATED  AT  ENDI 
NG  ADDRESS  ("HEX$(EA)") 
" : RETURN 

PRINT "DISK  ERROR  "|A?:R 
ETURN 

P  RI NT " TA  PE " : AD=POI NT  E  R  C 
F?);BANK  1 s A=PEEKCAD) :A 
L=PEEK(AD+X);AH=PEEK(AD 
+2) 

XX  860  BANK  15: SYS  DEC("FF68") 
,0,1;SYS  DECC'FFBA"),!, 
1,0:SYS  DEC("FFBD"),A,A 
L, AH: SYS  DEC("FF90" ) , 12 
8:IF  OP  THEN  890 

FG  870  PRINT :A=SA:B=EA+1: GOSUB 
920: SYS  DEC("E919"),3: 
PRINT "SAVING  " ; F$ 

AB  880  A=BS;B=BS+(EA^SA)+1:G0S 
UB  920;SYS  DECC'EAIS"): 
PRINT"! DOWN} { BLU J **  TAP 
E  SAVE  COMPLETED  **":G0 
TO  2  20 

CP  890  SYS  DEC("E99A") :PRINT:I 
F  PEEK(2816)=5  THEN  GOS 
UB  950: PRINT "(down} 
{BLK}{RVS}  FILE  NOT  FOU 
ND  "sGOTO  220 

GQ  900  PRINT"LOADING  ...{DOWN} 
":AD=FNADC2S17) ;IF  AD<> 
SA  THEN  F"1:G0T0  800 :EL 
SE  AD=FNADC2819)-l:F--2 
*(AD<EA)-3*CAD>EA) 

JD  910  A=BS:B=BS+(EA-SA)+1:G0S 
UB  920: SYS  DECC"E9FB"): 
IF  ST>0  THEN  800s ELSE  7 
90 

XB  920  P0KE193,FNLB(A) :POKE194 
,FNHBCa) :POKE  174,FNLB( 
B):P0KE  175,FNHB(B) :RET 
URN 

CP  930  CATALOG: PRINT "[DOWN} 

{BLU}**  PRESS  ANY  KEY  F 
OR  MENU  **":GETKEY  A^iG 
OTO  220 

MM  940  PRINT  BE$"{RVS}  QUIT 

B4i";RT$;"ARE  YOU  SURE 
{ SPACE }Cy/N]?";GETKEY  A 
?:IF  A?<>"y"  THEN  220 :E 
LSE  PRINT" {CLRJ": BANK  1 
5:END 

JE  950  SOUND  1 , 500, 10! RETURN 

AF  960  IP  ER=14  AND  EL=260  THE 
N  RESUME  300 

MK  970  IF  ER=14  AND  EL=500  THE 
N  RESUME  NEXT 

KJ  980  IF  ER=4  AND  EL=780  THEN 
F=4:A$=DS$:RESUME  800 

DQ  990  IF  ER=30  THEN  RESUME: EL 
SE  PRINT  ERR$(ER);"  ERR 
OR  IN  LINE"? EL        ^ 


MlMM  ^V^  Machine  Language 


Entry  Program  For 
.Apple 


To  make  it  easier  to  enter  machine  lan- 
guage programs  into  your  computer  with- 
out typos,  COMPUTE!  is  introducing  its 
"MIX''  entry  program  for  the  Apple  U 
series.  It's  our  best  MLK  yet.  It  runs  on  the 
H  11+ ,  He,  and  lie,  and  with  either  DOS 
3.3  or  ProDOS. 


A  machine  language  (ML)  program  is 
usually  listed  as  a  long  series  of  num- 
bers. It's  hard  to  keep  your  place  and 
even  harder  to  avoid  making  mistakes  as 
you  type  in  the  listing,  since  an  incorrect 
line  looks  almost  identical  to  a  correct 
one.  To  make  error-free  entry  easier^ 
COMPUTE!  generally  lists  ML  programs 
for  Commodore  and  Atari  computers  in 
a  format  designed  to  be  typed  in  with  a 
utility  called  "MLX."  The  MLX  program 
uses  a  checksum  system  to  catch  typing 
errors  almost  as  soon  as  they  happen, 
Apple  MLX  checks  your  typing  on 
a  line-by-line  basis.  It  won't  let  you 
enter  invalid  characters  or  let  you  con- 
tinue if  there's  a  mistake  in  a  line.  It 
won't  even  let  you  enter  a  line  or  digit 
out  of  sequence.  Best  of  all,  you  don't 
have  to  know  anything  about  machine 
language  to  enter  ML  programs  with 
MLX.  Apple  MLX  makes  typing  ML 
programs  almost  foolproof. 

Using  Apple  MLX 

Type  in  and  save  some  copies  of  Apple 
MLX  on  disk  (you'll  want  to  use  MLX  to 
enter  future  ML  programs  in  COM- 
PUTE!). It  doesn't  matter  whether  you 
type  it  in  on  a  disk  formatted  for  DOS 
3,3  or  ProDOS.  Programs  entered  with 
Apple  MLX,  however,  must  be  saved  to 
a  disk  formatted  with  the  same  operat- 
ing system  as  Apple  MLX  itself. 

If  you  have  an  Apple  lie  or  lie,  make 
sure  that  the  key  marked  CAPS  LOCK  is 
in  the  down  position.  Type  RUN,  You'll 
be  asked  for  the  starting  and  ending  ad- 
dresses of  the  ML  program.  These  values 
vary  for  each  program,  so  they're  given  at 
the  beginning  of  the  ML  program  listing 
and  in  the  program's  accompanying  arti- 
cle. Find  them  and  type  them  in. 

Invalid  Characters  Banned 

Apple  MLX  is  fairly  flexible  about  how 
you  t3^e  in  the  numbers.  You  can  put 
extra  spaces  between  numbers  or  leave 
the  spaces  out  entirely,  compressing  a 
line  into  18  keypresses.  Be  careful  not  to 
put  a  space  between  two  digits  in  the 
middle  of  a  number.  Apple  MLX  will 
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read  two  single-digit  numbers  instead  of 
one  two-digit  number  (F  6  means  F  and 
6,  not  F6). 

You  can't  enter  an  invalid  character 
with  Apple  MLX,  Only  the  numerals  0-9 
and  the  letters  A-F  can  be  typed  in.  If  you 
press  any  other  key  (with  some  excep- 
tions noted  below),  nothing  happens. 
This  safeguards  against  entering  extrane- 
ous characters.  Even  better,  Apple  MLX 
checks  for  transposed  characters.  If 
you're  supposed  to  type  in  AO  and  in- 
stead enter  OA,  Apple  MLX  will  catch 
your  mistake. 

The  next  thing  you'll  see  is  a  menu 
asking  you  to  select  a  function.  The  first  is 
(E)NTER  DATA.  If  you're  just  starting  to 
type  in  a  program,  pick  this.  Press  the  E 
key,  and  the  program  asks  for  the  ad- 
dress where  you  want  to  begin  entering 
data.  Type  the  first  number  in  the  first 
line  of  the  program  listing  if  you're  just 
starting,  or  the  line  number  where  you 
left  off  if  you've  already  typed  in  part  of  a 
program.  Hit  the  RETURN  key  and  begin 
entering  the  data. 

Once  you're  in  Enter  mode,  Apple 
MLX  prints  the  address  for  each  program 
line  for  you.  You  then  type  in  aU  nine 
numbers  on  that  line,  begiiming  with  the 
first  two-digit  number  after  the  colon  (:), 
Each  line  represents  eight  bytes  and  a 
checksum.  When  you  enter  a  line  and  hit 
RETURN,  Apple  MLX  recalculates  the 
checksum  from  the  eight  bytes  and  the 
address.  If  you  enter  more  or  less  than 
nine  numbers,  or  the  checksum  doesn't 
exactiy  match,  Apple  MLX  erases  the  line 
you  just  entered  and  prompts  you  again 
for  the  same  line. 

Apple  MLX  also  checks  to  make 
sure  you're  typing  in  the  right  line.  The 
address  (the  number  to  the  left  of  the 
colon)  is  part  of  the  checksum  recalcula- 
tion. If  you  accidentally  skip  a  line  and 
try  to  enter  incorrect  values,  Apple  MLX 
won't  let  you  continue.  Just  make  sure 
you  enter  the  correct  starting  address;  if 
you  don't,  you  won't  be  able  to  enter  any 
of  the  foUowiag  lines.  Apple  MLX  will 
stop  you. 

Editing  Features 

Apple  MLX  also  includes  some  editing 
features.  The  left-  and  right-arrow  keys 
allow  you  to  back  up  and  go  forward  on 
the  line  that  you  are  entering,  so  you  can 
retype  data.  Pressing  the  CONTROL 
(CTRL)  and  D  keys  at  the  same  time 
(delete)  removes  the  character  under  the 


June  1987     COMPUTEI      129 


cursor,  shortening  the  line  by  one  charac- 
ter. Pressing  CTRL-I  (insert)  puts  a  space 
under  the  cursor  and  shifts  the  rest  of  the 
line  to  the  right  making  the  line  one 
character  longer.  If  the  cursor  is  at  the 
right  end  of  the  line,  neither  CTRL-D  nor 
CTRL-I  has  any  effect. 

When  you've  entered  the  entire  list- 
ing (up  to  the  ending  address  that  you 
specified  earlier),  Apple  MLX  automati- 
cally leaves  Enter  mode  and  redisplays 
the  functions  menu.  If  you  want  to  leave 
Enter  mode  before  then,  press  the  RE- 
TURN key  when  Apple  MLX  prompts 
you  with  a  new  line  address.  (For  in- 
stance, you  may  want  to  leave  Enter 
mode  to  enter  a  program  listing  in  more 
than  one  sitting;  see  below.) 

Display  Dota 

The  second  menu  choice,  (D)ISPLAY 
DATA,  examines  memory  and  shows  the 
contents  in  the  same  format  as  the  pro- 
gram listing.  You  can  use  it  to  check  your 
work  or  to  see  how  far  you've  gotten. 
When  you  press  D,  Apple  MLX  asks  you 
for  a  starting  address.  Type  in  the  address 
of  the  first  line  you  want  to  see  and  hit 
RETURN.  Apple  MLX  displays  program 
lines  until  you  press  any  key  or  until  it 
reaches  the  end  of  the  program. 

Save  And  Load 

Two  more  menu  selections  let  you  save 
programs  on  disk  and  load  them  back 
into  the  computer.  These  are  (S)AVE 
FILE  and  (L)OAD  FILE.  When  you  press 
S  or  L,  Apple  MLX  asks  you  for  the 
filename.  The  first  time  you  save  an  ML 
program,  the  name  you  assign  vdU  be  the 
program's  filename  on  the  disk.  If  you 
press  L  and  specify  a  filename  that 
doesn't  exist  on  the  disk,  you'll  see  a  disk 
error  message. 

If  you're  not  sure  why  a  disk  error 
has  occurred,  check  the  drive.  Make  sure 
there's  a  formatted  disk  in  the  drive  and 
that  it  was  formatted  by  the  same  operat- 
ing system  you're  using  for  Apple  MLX 
(ProDOS  or  DOS  3.3).  If  you're  trying  to 
save  a  file  and  see  an  error  message,  the 
disk  might  be  full.  Either  save  the  file  on 
another  disk  or  quit  Apple  MLX  (by 
pressing  the  Q  key),  delete  an  old  file  or 
two,  then  run  Apple  MLX  again.  Your 
typing  should  still  be  safe  in  memory. 

Apple  MLX:  Machine 
Language  Entry  Program 

For  fnstnjctfons  on  entering  this  program, 
please  refer  to  "COMPUlEI's  Guide  to  Typing 
In  Programs"  eisewhere  in  this  issue, 

Bl  100  N  =  9:  HOHE  :  NORMAL  :  PR 
INT  "APPLE  MLX":  POKE  34, 
2:  ONERR  GOTO  610 

CC  110  VTAB  Is  HTAB  20:  PRINT  "S 
TART  ADDRESS";:  GOSUB  530 
:  IF  A  -  0  THEN  PRINT  CHR 
«  (7):  GOTO  110 

SC  120  S  =  A 


£3  130  VTAB  2:  HTAB  20=  PRINT  "E 

ND  ADDRESS   ";s  GOSUB  530 

s  IF  S  >  =  A  OR  A  =  0  THE 

N  PRINT  CHR*  (7) :  GOTO  13 

0 
2«  140  E  =  A 
B5  150  PRINT  !  PRINT  "CHOOSE:  CE) 

NTER  DATA";:  HTAB  22:  PR I 

NT  *'CD)ISPLAY  DATA":  HTAB 
as  PRINT  "CDOAD  FILE   ( 

S>AVE  FILE   (Q)UIT":  PRIN 

T 
ftE  160  GET  A*:  FOR  I  =  1  TO  5:  I 

F  A»  <  >  MID*  ("EDLSa",I, 

l>  THEN  NEXT  t    GOTO  160 
«  170  ON  I  GOTO  270,220,180,200 

!  POKE  34,0s  END 
ftp  1B0  INPUT  "FILENAMES  ";A»s  IF 
A*  <  >  ""  THEN  PRINT  CHR 

«  (4>;"BL0AD"jA*;",A";S 
AJ  190  GOTO  150 

38  200  INPUT  "FILENAMES  ";A*:  IF 
At  <  >  ""  THEN  PRINT  CHR 

«  (4)|"BSAVE";A*!",A";S!" 

,L"| (E  -  3)  +1 
92  210  GOTO  150 
C2  220  GOSUB  590:  IF  B  =  0  THEN 

150 
9E  230  FOR  B  -  B  TO  E  STEP  BsL  » 
4: A  -  Bi  GOSUB  5001  PRIN 

T  A*;"!  "jsL  "  2 
B5  240  FOR  F  =  0  TO  7:V<F  +  U  * 
PEEK  (B  +  F)s  NEXT  :  0OS 

UB  560:V(9>  =■  C 
F2  250  FOR  F  =  1  TO  N:A  =  V(F>; 

GOSUB  5B05  PRINT  A»"  ";s 

NEXT  t  PRINT  :  IF  PEEK  (4 

9152)  <  128  THEN  NEXT 
94  260  POKE  4916B,0:  GOTO  150 
CC  270  GOSUB  590:  IF  B  =  0  THEN 

150 
4B  280  FOR  B  =  B  TO  E  STEP  B 
fti  290  HTAB  1:A  =  B:L  =  4:  GOSUB 
580S  PRINT  A*;":  "js  CAL 

L  64668: A»  «  ""sP  «  0!  GO 

SUB  330s  IF  L  -*  0  THEN  15 

0 
F9  300  BOSUB  470:  IF  F  <  >  N  THE 

N  PRINT  CHR«  (7);:  QOTO  2 

90 
27  310  IF  N  ==  9  THEN  GOSUB  560: 

IF  C  <  >  V(9)  THEN  PRINT 

CHR*  (7);s  GOTO  290 
72  320  FOR  F  =  1  TO  Bs  POKE  B  + 

F  -  1,V(F);  NEXT  :  PRINT 

:  NEXT  ;  QOTO  150 
SE  330  IF  LEN  (A*)  =  33  THEN  A* 

=  0*iP  «  0:  PRINT  CHR*  (7 

)| 
22  340  L  -  LEN  (A*>:0*  =  A*:Q  » 

P:L*  -  "":  IF  P  >  0  THEN 

L*  -  LEFT*  (A*,P) 
Ei  350  R*  «  "":  IF  P  <  L  -  1  THE 

N  R*  «  RIGHT*  (A*,L  -  P  - 
1) 
55  360  HTAB  7:  PRINT  L«; :  FLASH 

t  IF  P  <  L  THEN  PRINT  MID 

*  (A*,'P  +  l,l>j:  NORMAL  s 
PRINT  R*j 
71  370  PRINT  "  "s:  NORMAL 
U   380  K  ^    PEEK  C49152):  IF  K  < 

120  THEN  380 
CI  390  POKE  49168, 0:K  »  K  -  128 
5B  400  IF  K  =  13  THEN  HTAB  7:  PR 

INT  A* I"  "js  RETURN 
BA  410  IF  K  =  32  OR  K  >  47  AND  K 
<  58  OR  K  >  64  AND  K  <  7 

1  THEN  A*  =  L*  +  CHR*  (K) 
+  R*sP  «  P  -I-  1 
CI  420  IF  K  =  4  THEN  A*  =  L*  +  R 

* 
5F  430  IF  K  =  9  THEN  A*  =  L«  +  " 
"  +  MID*  <A*,P  +  1,1)  + 

R* 
fA  440  IF  K  -  B  THEN  P    =    P    -    (P 

>  0) 


93  450  IF  K  =  21  THEN  p  ^  P  4-  (P 

<  L) 
n   460  GOTO  330 

57  470  F  =  1:D  =  0:  FOR  P  =  i  TO 
LEN  <A*):C*  -  MID*  (A*,P 

,1)1  IF  F  >  N  AND  C*  <  > 

"  "  THEN  RETURN 
BB  480  IF  C*  <  >  "  "  THEN  BOSUB 

520sV(F)  «  J  +  16  »  (D  » 

1)  «  V<F):D  -  D  4-  i 
5F  490  IF  D  >  0  AND  C*  =  "  "  OR 

D  *  2  THEN  D  -  0:F  -  F  + 

1 
IB  500  NEXT  s  IF  D  =  0  THEN  F  = 

F  -  1 
17  510  RETURN 
B5  520  J  =  ASC  (C*)  !  J  «  J  -  48  ~ 

7  «  (J  >  64):  RETURN 
AB  530  A  =  0!  INPUT  A*!  A*  =  LEFT 

*  (A*, 4):  IF  LEN  <A*)  =  0 
THEN  RETURN 
AF  540  FOR  P  »  1  TO  LEN  (A*):C* 

-  MID*  <A*,P,1):  IF  C*  < 
"0"  OR  C*  >  "9"  AND  C*  < 
"A"  OR  C*  >  "Z"  THEN  A  » 
0s  RETURN 

20  550  BOSUB  520:  A  =  A  t  16  +  Js 

NEXT  s  RETURN 
2fl  560  C  «  INT  <B  /  256) :C  =  B  - 
254  t  C  -  255  t  <C  >  127 
>:C  »  C  ~  255  t  (C  >  255) 

21  570  FOR  F  =^  1  TO  S:C  =  C  «  2 

-  255  t     (C    >    127)  +  V(F): 
C  -  C  -  255  «  (C  >  255) fi 
NEXT  !  RETURN 

DA  580  I  =  FRE  (0)£A*  =  ""s  FOR 
I  »  1  TO  L:T  «  INT  (A  /  1 
6>sA*  -  MID*  ("0123456789 
ABCDEF",A  -  16  *  T  +  1,1) 
+  A»sA  *  Ts  NEXT  s  RETUR 
N 

IF  590  PRINT  "FROM  ADDRESS  ";:  B 
OSUB  530:  IF  S  >  A  OR  E  < 
A  OR  A  »  0  THEN  B  *  0;  R 
ETURN 

ID  600  B  *  S  -t-  8  *  INT  (  (A  -  S> 
/  8):  RETURN 

U   610  PRINT  "DISK  ERROR":  GOTO 
150  js^ 


All  the  programs  in 

this  issue  are 

available  on  the 

ready4o-load 

COMPUTE!  Disk.  To 

order  a  one-year 

(four-disk) 

subscription. 

call  toll  free 

800-247-5470 

(inlA800"532-1272). 

Please  specify  which 

computer  you  are 

using. 
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Classified 


SOFTWARE 


COMMODORE:  TRY  BEFORE  YOU  BUY.  Best 
selling  games,  utilities,  educational,  +  classics 
and  new  releases.  lOO's  of  titles.  Visa/MC.  Free 
brochure.  RENT-A-DISC,  Frederick  Bldg.  #345, 
Hunt'n,  WV  25701  (304)  529-3232 

FREE  APPLE  SOFTWARE 

Over  1000  Public  Domain  Programs  on  50 
diskettes.  $5  each  plus  $1  for  shipping  per  order. 
Send  $1  for  catalog.  Refundable  with  order. 
C&H  ErrrERPRISES 
PO  Box  29243,  Memphis,  TN  38127 

TI-99/4A  QUALITY  SOFTWARE  for  Business, 
Home,  Entertainment  •*Bonus  Software  Offer!** 
Send  for  FREE  catalog  to  MICRO-BIZ  HAWAII, 
BOX  1108,  PEARL  CITY,  H!  96782 

Ti-99/4A  Software/Hardware  bargains, 
Hard-to-find  items.  Huge  selection. 
Fast  service.  Free  catalog. 
DYNAMIC,  Box  690,  Hicksvitle,  NY  11801 

DISCOUNT  SOFTWARE  for  most  computers. 
FREE  CATALOG,  Sale:  5.25"  DSDD  Disks 
25  for  SI 3. 95  ppd.  WM]  DATA  5YSTEMS-C, 
4  Butterfly  Dr.,  Hauppauge,  NY  11788 

CHEAP  SOFTWARE  FOR  PC/MS-DOS/PCjr... 
Games,  Business,  Educationahand  Utility 
Disk.  For  catalog  write;  Morning  Star, 
P.O.  Box  3095,  Ann  Arbor,  MI  48106 

FREE!  PUBLIC  DOMAIN  SOFTWARE! 
MS-DOS,  IBM  &  Compatibles  -  Save  $$$ 
@  S3.50  per  disk!  Free  flyer:  AP-JP,  Inc, 
P.O.  Box  1155,  W.  Babylon,  NY  11704 

FREE  SOFTWARE  for  C64,  C128,  IBM  &  CPM 
send  SASE  for  info  (specify  computer)  to: 
PUBLIC  DOMAIN  USERS  GROUP 
PO  Box  1442- Al,  Orange  Park,  FL  32067 

MILLION  $  LOTTO  BUSTER  PROGRAM 
GUARANTEED.  SCIENTIFIC.  HITS  MILLIONS. 
AUTHOR  HITS  WEEKLY.  NOT  A  R/N  GEN. 
Z-WAY,  P.O.  BOX  9017,  CANTON,  OH  44711 


$$  WIN  $$ 

with  our 

SPORTS 

Hondicopphg 

Software 

THOROUGH  BRED/ HARNESS  Ha  nd  ;c  app«ng  S  29. <?5.  enhanced 
SJPQ5  GREYHOUND  Ha ndicoppng  $2V'?5,  enhanced  Sd9 96 
PRO  FOOTBALL  Handicapping  Svslem  S39  95  Specify  disfe/ 
tope  Apple  ll+co.  Atan.  IBM  PC.  COM  6^/128,  Tl,  TRS-SO  Mod 
3/d.  Moo  100/200.  Color  Add  52  post  /handl  MCA^ WCOD$ 
accoploa  Ffeo  intormalion  SOFTWARE  EXCHANGE.  Boit  5382 
CP.  W  bioomfleld.  MUe033  Oders  V600-527-QJ67 


Quality  IBM  SOFTWARE  from  $1  per  disk. 
Games/ WProc/DBases/Educ/Sprsht/ Util/ More. 
Public  Do  main -La  test  Versions!  Free  Catalog, 
SOF'TO-GO,  Box  2737,  W.  Ufayette,  IN  47906 
(317)  497-3301  CALL  OR  WRITE  TODAY! 

HOME  &  BUSINESS 

Savgs/ Loans,  Cost  Schedule,  Calculator 

Files:  List,  Search,  Create,  Read,  Add 

Data.  Calcig  Files:  Charge  Acct,  Auto, 

Budget/Inventory,  Check  &  Bank  Stmt/Bal 

Tally/Exps,  Phone,  Payroll,  TEXT-FILE, 

Invoice  Files:  Sales,  Service,  Pymts,  Rtns. 

Editing,  Sorts,  Help  Access,  Instr  Manual, 

Programmers... List  Code.  256K  Min, 

IBM/Compatible,  COD/MO/CK:  $39.95  +  $5 

s/h,  APT  RENTAL  FiJes  Incl'd:  $44.95  +  $5  s/h. 

Calc-Data,  Inc.  CD  1.0(C)  &  ARLO(C) 

Tamarind  Dr.,  Hallandale,  FL  33009 

Orders  (800)  247-7893  (305)  .456-0417 


T.L99/4A  OWNERS 
1-800-USA-994A 

Tech  Help     Catalogs 

Newsletters 

IN  FLORIDA  305-962-8846 


IBM  PUBLIC  DOMAIN  SOFTWARE  $3  PER  DISK. 
Send  for  free  list.  W^e  have  d bases/games/ 
spreadsheets/finance/educational/and  more. 
For  home  or  business.  Disks  are  new  DSDD. 
JDX/C  P.O.  Box  1561,  Corona,  CA  91718 


COMPUTEl  Classified  is  a  low-cost  way  to  tell  over  350,000 
microcomputer  owners  about  your  product  or  service. 

Rates:  $25  per  line,  minimum  of  four  lines.  Any  or  all  of  the  first  line  set  in  capi- 
tal letters  at  no  charge.  Add  $15  per  line  for  boldface  words,  or  $50  for  the  entire 
ad  set  in  boldface  (any  number  of  lines.)  Inquire  about  display  rates. 

Terms:  Prepajmient  is  required.  Check,  money  order,  American  Express,  Visa,  or 
MasterCard  is  accepted.  Make  checks  payable  to  COMPUTE!  Publications. 

Form:  Ads  are  subject  to  publisher's  approval  and  must  be  either  typed  or  legibly 
printed.  One  line  equals  40  letters  ana  spaces  between  words.  Please  underline 
words  to  be  set  in  boldface. 

General  Information;  Advertisers  using  post  office  box  numbers  in  their  ads  must 
supply  permanent  address  and  telephone  numbers.  Ad  will  appear  in  next  avail- 
able issue  after  receipt. 

Closmg:  10th  of  the  third  month  preceding  cover  date  (e.g.,  June  issue  closes 
March  10th).  Send  order  and  remittance  to:  Harry  Blair,  Classified  Manager, 
COMPUTE',  P.O.  Box  5406,  Greensboro,  NC  27403.  To  place  an  ad  by  phone, 
call  Harrv  Blair  at  (919)  275-9809. 

Notice:  COMPUTE!  Publications  cannot  be  responsible  for  offers  or  claims  of 
advertisers,  but  will  attempt  to  screen  out  misleading  or  questionable  copy. 


HARDWARE 

IBM'APPLE 

Compatibility  Ca 

rd 

Now  run  Apple  programs  o 

n  a 

[|  MS-DOS 

systems  including  IBM. 

Dior 

les  and 

Tandy  systems 

Free  Brochure 

1 -800-872-9942     In  Fla:  305- 

962-8846 

MISCELLANEOUS 


SAFEWARE  INSURES  COMPUTERS  against 
fire,  theft,  &  power  surges  for  as  little  as 
$39,  Call  Safe  ware,  The  Insurance  Agency  Inc. 
at  800/848-3469,  Columbus,  Ohio. 

BBS  Numbers  $5  BBS  Software!  Order  by 
modem  {300  BAUD)  818-840-8066  or  send  $5  to 
BBS-FUNPAK,  Box  6055,  Burbank,  CA  91510 
MulH-User  Modem  Party  Line:  818-842-3322 

ATARI  ST  OWNERS!  Padded  pro  soft  carry  bag 
by  top  manuf,  w/pockets,  handb,  strap.  For 
keybd  &  dd;  $74.95,  for  monitor:  S55,  Add  $4 
s/h.  10%  off  with  $17  membshp  to  USA  ST 
USERS  GROUP.  Includes  monthly  newsletter, 
prod  discounts,  free  softw.  USA  ST  UG,  10 
Cornwall  St.,  Boston,  MA  02130 


COMPUTEl 

Subscriber  Services 

Please  help  us  serve  you  better  If  you 
need  to  contact  us  for  any  of  the 
reasons  listed  below,  write  to  us  at: 

COMPyTll  Magozlnft 

P.O.  Box  10954 

Des  Moines,  !A  50340 

or  call  the  Toll  Free  number  listed  below, 

Changm  Of  Address*  Please  allow  us 
6-8  weeks  to  effect  the  change;  send 
your  current  mailing  label  along  with 
your  new  address. 

Renewal.  Should  you  wish  to  renew  your 
COMPUTEl  subscription  before  we 
remind  you  to,  send  your  current  nratling 
label  with  payment  or  charge  number 
or  call  the  Toll  Free  number  listed  below. 

New  Sybseriptlon.  A  one  year  (1 2 
month)  US  subscription  to  COMPUTEl  Is 
$24,00  (2  years,  $45.00;  3  years,  $65.00. 
For  subscription  rates  outside  the  US, 
see'  staff  page).  Send  us  your  name 
and  address  or  call  the  Toll  Free  number 
listed  below. 

Deltvery  Probtems.  If  you  receive  dupli- 
cate Issues  of  COMPUTE),  If  you  experi- 
ence late  delivery  or  If  you  hove  protn 
lems  with  your  subscription,  please  call 
the  Toll  Free  number  listed  below. 

COMPUTEl 
1-800-247-5470 

in  lA  1-800-532-1272 
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If  you  have  any  infor- 
mation about  services 
which  maintain  a  data- 
base of  all  currently 
available  commercial 
software,  please  write  to: 

Database 
RO.  Box  5406 
Greensboro,  NC  27403 


Copies  of  articles  from  this 
publication  are  now  available  from 
the  UMI  Article  Clearinghouse. 

For  more  information  about  the 
Clearinghouse,  please  fill  out  and  mail  back 
the  coupon  below. 


iim 


\rtide, 


Yes!  I  would  like  to  know  more  about  UMI  Article  Clearinghouse. 

I  am  interested  in  electronic  ordering  through  the  following  system{s): 

D  DIALOG/Dialorder  D  ITT  Dialcom 

D  OnTyme  D  OCLC  ILL  Subsystem 

D  Other  (please  specify)- 


D I  am  interested  in  sending  my  order  by  mail. 
n  Please  send  me  your  current  catalog  and  user  instructions  for  the 
system(s)  I  checked  above. 

Name -^ . , 

Title ^^ 

Institution/Company 

Department- 

Ad  d  r  e  ss 

Cit>' 


_State_ 


-Zip- 


Phone  ( ) 

Mail  to:  University  Microfilms  International 

300  North  Zeeb  Road,  Box  91    Ann  Arbor,  MI  48106 
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THE  MORE  YOU  USE  COMPUTE!. 

THE  MORE  VALUABLE  YOUR 

COMPUTER  BECOMES... 


COMPUTE'  magazine  maximizes  the  value  of 
your  home  computer  by  providing  you  with  power- 
ful do-it-yourself  programs  for  games,  household 
management,  business  and  school!  Your 
computer  will  be  more  practical,  more  fun,  more 
valuable  to  you  and  your  family.  Take  advantage 
of  Compute!  at  our  introductory  rate. 
n  1  Year  (1 2  Issues)  $24    D  2  Years  (24  Issues)  $45 

Name . 


Address 
City 


.State. 


-Zip- 


For  Foreign  &  Canadian  Subscribers, 
please  add  $6  (U.S.)  per  year  postage. 


D  Payment  Enclosed,  D  Please  Bill  Me. 
To  Order  Call:  1-800-547.5470. 
Offer  subject  to  change  without  notice. 


J6717 


BUSINESS  REPLY  MAIL 

FIRST  CLASS  PERMIT  NO.  7478  DES  MOINES.  lA 


POSTAGE  WILL  BE  PAID  BY  ADDRESSEE 


COMPUTE! 


P.O.  Box  10955 

Des  Moines,  lA  50347-0955 


NO  POSTAGE 

NECESSARY 

IF  MAILED 

IN  THE 

UNITED  STATES 


l.l.l.ll.....ll..l..ll...lll...l.l...l.l..l.t...l.ll 


COMPUTE/'s  Disk 

YES!  i  want  to  save  time  and  money.  Please  enter  my  quarterly  subscription 
to  the  following  COMPUTE!  Disk: 

n  Commodore       D  Apple       D  Atari       D  IBM 


n  Save  33%  off  the  single  issue 
price.  1  year  subscription,  $39.95 


D  Save  even  more!  2  year  subscription, 

S69.95 


n  Payment  enclosed  (check  or  money  order) 
^n  Charge    □  MasterCard    D  Visa 

Acct.  No. 


Or  Call:  1-800-247-5470 

^^_ Exp.  Date . 


Signature . 


Address . 
City_ 


State, 


Zip. 


(Outside  U.S.  and  Canada.  addS9.00  par  year  for  shipping  and  handling.) 
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CO/WPUTEi's 

FREE  Reader  Information  Service 

Use  these  cards  to  request  FREE  information  about  the  products  ad- 
vertised in  this  issue.  Cieoriy  print  or  type  your  fuil  name  and  address, 
Only  one  card  shouid  be  used  per  person.  Circle  the  numbers  that 
correspond  to  the  key  number  appearing  in  the  advertisers  index. 

Send  in  the  cord  and  the  advertisers  will  receive  your  inquiry.  Al- 
though every  effort  is  mode  to  insure  that  only  advertisers  wishing  to 
provide  product  information  have  reader  service  numbers,  compute! 
cannot  be  responsible  if  advertisers  do  not  provide  iiterature  to 
readers. 

Please  use  these  cards  only  for  subscribing  or  for  requesting  product 
information.  Editoriai  and  customer  service  inquiries  should  be  ad- 
dressed to:  COMPUTER  P.O.  Box  5406.  Greensboro.  NO  27403.  Check 
the  expiration  date  on  the  card  to  insure  proper  handling. 

Use  these  cards  and  this  address  only  for  COMPUTEl's  Reader  Infor- 
mation Service.  Do  not  send  with  poyment  in  any  form. 
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subscription 
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own:  plan  to  buy: 

D    Apple . 
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SUBSCRIBE 

TO 

COMPUTE! 


Please  print  or  type  name  and  address. 
Limit  one  card  per  person. 

Nome 


Address 


City 


State/Province 


Zip 


Country 


Phone 


Piease  IrciudeZlP  Code 


Expiration  Date  8/3 1/87 


C0687 


For  Fastest  Sen/ice, 

Call  Our  Toll-Froe 

US  Order  Line 

800-247.5470 


D  $24.00  One  Year  US  Subscription 
D  $45.00  Two  Year  US  Subscription 


Name 

Address 

City 

State 

Zip 

n  Paynnent  Enclosed 
Charge  my:  D  VISA 
Account  No. 

D  Bill  me 
n  MasterCard 

n  American  Express 
Expires             / 

>bur  lubscription  will  b&Qln  with  the  next  available  issue.  Pleose  oltow  d'6  weeks  for  deliverv  of  first  Issue.  Subscription  prices  subject  to 
chonge  at  ony  time.  Ou  tside  the  li.S  A.  piease  odd  S6  for  eoch  subscription.  .  *-  *  ^ 
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so  REAL  IT  HURTS 

GFL  Championship  FoolbaD™ 

The  way  computer  football  should  be. 


Amiga  screen 


Other  football  games  put  you  in  the  grandstands, 

looking  down  on  the  action.  Now  see  what  it's  like 
from  the  player's  perspective— looking  out  of  your 
helmet  at  an  angry  linebacker  headed  straight  for 
you,  and  no  blockers  in  sight. 

With  GFL  Championship  Football ^  you  ve  got 

the  first  footbatl  simulation  that  actually  takes  you 
down  on  the  field,  taking  the  hits  and  making  the 
plays.  And  it's  more  than  just  a  pretty  picture^ 
you  really  get  the  feel  of  playing  football. 

No  other  football  simulation  gives  you  so  many 
features: 

•  I ii'ihe-helmet  perspective  puts  you  at  ground 


«,  \  I     I   li,\MFIONSJH  !■ 

FOOTBALL 


siummg^ 


level  on  the  playing  field. 

•  Scrolllng-screen  animation  moves  you  up  and 
down  the  playing  field. 

•  Realistic  sound  effects  let  you  hear  everything 
from  the  quarterback  calling  the  signals  to  the 
sound  of  your  own  footsteps. 

•  Team  selection  screens  allow  you  to  set  the  play- 
ing style  of  your  team  and  that  of  your  opponent. 

Whether  you're  taking  on  bone-crunching  action 
against  a  friend,  or  going  up  against  any  of  the  27 
computer-controlled  teams  in  the  GFL,  this  is  the 
one  that  puts  you  where  the  action  is! 


Available  now  for  the  Commodore  64^28,  IBM  PC  and  landy  1000,  Apple  He,  lie,  Amiga,  Atari  ST  and  lOOfr  compatible  computers. 

Look  for  Activision  products  at  your  local  software  dealer. 
Or  you  can  buy  by  mail  at  suggested  list  price  by  calling  1-800-227-6900. 
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Arniya  scrtTn 


Commodore  64-128  screen 


Commodore  64-128  screen 


Commodore  64-128  scr^n 


jsmrsjM^ 


Gamestar  U  a  trademark  of  Activision  Inc.  ComrrnxJore  64.  I2K  and  Amiga  are  iradcmarks  of  CnmnuKiurc  Elccironics  Limited.  IBM  PC  is  a  tratfemark  of  Iniemaiional  Business  Machines  Corporation.  Tandy  is  a 
tnidcfnarfc  of  Tandv  CoryHiratinii,  Aijri  and  ST  are  Iradcmarks  of  Alan  CorpiTration.  Apf^c  h  a  tradenvari;  of  Apple  Computer  Aeljvision  is  the  registered  trademark  of  Acttvision  Inc.  ©  I9H6  Activision  Inc. 
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Now  your  kids  can  afford  to  do  their  iiomeworic 

More  and  more  students  are  learning  with  computers.  However  most  parents  haven't  been  able  to 

work  a  computer  into  their  budget.  The  Laser  128  Apple-compatible  computer  will  let  you  do  all  those 

things  that  you  and  your  family  want  to  or  have  to  do  -  homework,  write 

reports,  even  play  games  for  a  fraction  of  the  cost  of  an  Apple.  With 

a  Laser  you  can  work  out  your  budget  on  a  computer,  instead  of 

breaking  it  with  one.  The  Laser  lets  you  take  advantage  of  the 

largest  software  library  available,  so  your  child  can  learn  more  at 

home  with  the  same  programs  they  learn  on  in  school.  And,  you 

can  do  your  work  at  home  on  the  Laser,  too. 

The  Laser  128  with  all  its  features:  built-in  disk  drive; 
128K  RAM  (expandable  to  1  megabyte);  serial,  parallel, 
modem  and  mouse  interfaces;  80  column  text  mode;  numeric 
keypad;  and  an  expansion  slot;  makes  for  a  pretty  educated 
buy.  When  you  do  your  homework  on  which  computer  to  buy 
you'll  find  the  Laser  128  at  the  head  of  the  class  with  value.  For 
more  information  on  the  Laser  128  and  the  name  of  your 
nearest  dealer,  contact  Video  Technology  Computers,  Inc. ,    * 
400  Anthony  Trail,  Northbrook,  IL  60062,  or  call  (312)  272-6760. 


I»^LASER  128 


Apple,  Apple  He  and  Apple  lie  are 
cegistered  irademarks  of  Apple  Computef.  Inc. 


Manufactured  by 

VIDEO  TECHNOLOGY  COMPUTERS,  INC. 


MAKING  COMPUTERS  AFFORDABLE 


